определить количество положительных, отрицательных и нулевых элиментов в кажой строке

uses
  SysUtils;
  type
  kol=record
  plus,minus,nul:integer;
  end;
  const
  nmax=30;
  mmax=30;
  var
a:array [1..nmax,1..mmax] of integer;
b: array[1..NMAX] of kol;
i,j,n,m,kol1,kol2,kol3:integer;
 
begin
writeln ('vvedite n i m');
readln(n);
readln(m);
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=Random(101)-Random(101);
writeln ('ishodnay matrica');
  for i:=1 to n do
   begin
  for j:=1 to m do
 write (a[i,j]:4,' ');
    writeln;
   end;
   readln;
   kol1:=0;
for i:=1 to n do
 for j:=1 to m do
 if  a[i,j]>0 then kol1:=kol1+1;
for i:=1 to 3 do
with b[n] do
kol1:=plus;
write (plus);
  readln;

type
  kol=record
  plus,minus,nul:integer;
  end;
const
  nmax=10;
  mmax=20;
  var
a:array [1..nmax,1..mmax] of integer;
b: array[1..NMAX] of kol;
i,j,n,m:integer;
 
begin
repeat
writeln ('vvedite n 1-',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
writeln ('vvedite m 1-',mmax,' m=');
readln(m);
until m in [1..mmax];
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=Random(5)-2;
writeln ('ishodnay matrica');
for i:=1 to n do
 begin
  for j:=1 to m do
  write (a[i,j]:4,' ');
  writeln;
  end;
readln;
for i:=1 to n do
 begin
  b[i].plus:=0;
  b[i].minus:=0;
  b[i].nul:=0;
  for j:=1 to m do
   begin
    if a[i,j]>0 then inc(b[i].plus);
    if a[i,j]<0 then inc(b[i].minus);
    if a[i,j]=0 then inc(b[i].nul);
   end;
 end;
writeln('massiv kolichestv:');
writeln('         poloz  otric  nuli');
for i:=1 to n do
 begin
  write('stroka ',i,'  ');
  with b[i] do write(plus:2,minus:6,nul:6);
  writeln;
 end;
readln
end.