Не могу найти ошибки в программе

var 
str:string;
a:array of integer;
p:integer;
c:string;
c1:integer;
count,n:integer;
k:integer;
begin
p:=-1;
k:=0;
count:=0;
readln(n);
setlength(a,n);
readln(str);
while p<>0 do begin
p:=pos(' ',str);
c:=copy(str,1,p-1);
c1:=strtoint(c);
delete(str,1,p);
if c1<0 then begin 
writeln(c1);
count:=count+1;
setlength(a,n-count);
end
else begin
a[k]:=c1;
k:=k+1;
end;
end;
for k:=0 to n-1-count do writeln(a[k]);
end.

var a:array of integer;
    n,i,c,k:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
 begin
  read(c);
  if c<0 then write(c,' ')
  else if c>0 then
   begin
    inc(k);
    setlength(a,k);
    a[k-1]:=c;
   end;
 end;
for i:=0 to k-1 do
write(a[i],' '); 
end.

readln(str);
while not eoln do begin
p:=pos(' ',str);
c:=copy(str,1,p-1);
c1:=strtoint(c);
delete(str,1,p);

readln(s);
s:=s+' ',
n:=0;
while pos(' ',s)>0 do
 begin
  inc(n);
  setlength(a,n);
  a[n-1]:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
 end;

var s:string;
    a:array of integer;
    c,n,i:integer;
begin
readln(s);//читаем строку из чисел, разделенных пробелами
s:=s+' ';//добавим пробел в конец для удобства
n:=0;//размер массива пока 0
while pos(' ',s)>0 do//пока есть пробелы в строке
 begin
  c:=strtoint(copy(s,1,pos(' ',s)-1));//читаем число
  delete(s,1,pos(' ',s));
  if c<0 then write(c,' ')//если отрицательное, выводим
  else if c>0 then//если положительное, в массив
   begin
    inc(n);
    setlength(a,n);
    a[n-1]:=c;
   end;
 end;
for i:=0 to n-1 do
write(a[i],' ');
end.

const
  Limit: Integer = 100;
  Delta = 100;
var
  a: array of Integer;
  n: Integer;
begin
  SetLength(a,Limit);
  n:=0;
  ...
    // заносим в массив
    if n=Limit then begin
      Inc(Limit,Delta);
      SetLength(a,Limit);
    end;
    a[n]:=c; Inc(n);