Найти количество положительных и отрицательных чисел в каждой строке матрицы размером MxN

uses crt;
var a,b,c:array[1..1000,1..1000]of real;
i,j,ii,jj,m,n:integer;
begin
write ('Введите количество столбцов'); readln(m);
write ('Введите количество строк'); readln(n);
for ii:=1 to n do
for jj:=1 to m do begin
write('Введите a[',ii,',',jj,']:'); read(a[ii,jj]);
end;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:9:1);writeln;
end;
end.

uses
  crt;
 
var
  a: array[1..1000, 1..1000]of real;
  i, j, m, n, k1, k2: integer;
 
begin
  write('Введите количество столбцов: '); readln(m);
  write('Введите количество строк: '); readln(n);
  for i := 1 to n do
    for j := 1 to m do 
    begin
      write('Введите a[', i, ',', j, ']: '); read(a[i, j]);
    end;
  ClrScr;
  for i := 1 to n do 
  begin
    k1 := 0; k2 := 0; //количество положительных и отрицательных равно 0
    for j := 1 to m do begin
      write(a[i, j]:9:1);
      if a[i, j] > 0 then inc(k1);
      if a[i, j] < 0 then inc(k2)
    end;
    if k1 > 0 then write('  положительных = ', k1, ', ')
    else write('  положительных нет, ');
    if k2 > 0 then writeln('  отрицательных = ', k2)
    else writeln('  отрицательных нет');
  end;
end.