Viết chương trình tìm số dương và số âm trong các dãy só nguyên

uses crt;
type AI = array of integer;

var m,l,k,i,j:integer;
temp:integer;
a:AI;
b: array [1..10000] of integer;
c:  array [1..10000] of integer;
begin
clrscr;
write('nhap so luong phan tu mang: ');
readln(m);
setlength(a,m);
for i := low(a) to high (a) do
 begin
    write('nhap gia tri phan tu mang a[',i,']');
    readln(a[i]);
end;
l:= 1;
k:= 1;
repeat
for j := low(a) to high (a) do
  begin
  if (a[j] > 0  ) then
   begin
   b[k] := a[j];
   k := k + 1;
   end
  else if (a[j] < 0 ) then
  begin
  c[l] := a[j] ;
  l := l +1;
  end;
  end;
until(j = i) ;
writeln('CAC GIA TRI AM :':9);
for i:= 1 to l -1 do write(c[i] :4 ) ;
writeln;
writeln('CAC GIA TRI DUONG :':9);
for i := 1 to k -1 do write (b[i]:4);
readln;
end.

var

a:array[1..100] of integer;

i,n,d1,d2:integer;

begin

write('nhap vao n:');readln(n);

for i:=1 to n do

write('nhap vao phan tu a[',i,']:');

readln(a[i]);

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]);

writeln;

d1:=0;d2:=0;

for i:=1 to n do

if a[i]>0 then d1:=d1+1

else d2:=d2+1;

writeln('co ',d1,' so duong');

writeln('co ',d2,' so am');

readln

end.