Ввести двумерный массив ANxM, вывести его. Определить в какой строке больше положительных элементов

program a1;
const N=5;
      m=6;
var A: array[1..n,1..m] of integer;
z,z1,z2,min,max,kmax,kmin,j,i:integer;
begin 
randomize;
writeln('');
for i:=1 to N do 
 begin for j:=1 to M do
    begin
      a[i,j]:=-50+ random(100);
      write(a[i,j]:3);
    end;
 writeln;
 end;
 writeln;
 min:=a[i,j];
 max:=a[i,j];
for i:=1 to N do
    for j:=1 to M do
    begin
      if min>a[i,j] then begin min:=a[i,j]; kmin:=i;  end; 
      if max<a[i,j] then begin max:=a[i,j]; kmax:=i;  end; 
    end;                       
writeln('min=',min,';stroka ',kmin);
writeln('max=',max,';stroka ',kmax);
writeln;
 
for j:=1 to m do
    begin 
    if a[kmin,j]<0 then z1:=z1+1; 
    if a[kmax,j]>0 then z2:=z2+1;
    end;
    
    if z1<z2 then begin z:=kmax; writeln('положительных больше'); end else begin z:=kmin; writeln('отрицательных меньше'); end;
    
    
for j:=1 to m do
    a[z,j]:=a[z,j]*a[z,j];
    
for i:=1 to N do 
 begin for j:=1 to M do
       write(a[i,j]:6);
    writeln;
 end;    
end.