Будь внимательней.

Код:

const k=5;
var a:array[1..k] of integer;
i,n,s,o:integer;
begin
s:=0; 
for i:=1 to k do
begin
readln(a[i]);
end; 
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k-1 do a[o]:=a[o+1];
s:=s+1;
end
else o:=o+1;
end;
for i:=(k + 1 - s) to k do
begin
a[i]:=0;
end; 
writeln('Вывод:');
for i:=1 to k do
begin
writeln(a[i]);
end;
readln;
end.

P.S. Много лишнего кода. Почитай что-нибудь об эффективном кодинге на паскале.
Например, лишние begin и end;
Да и оформление кода оставляет желать лучшего.