Матрицы. Определить количество положительных элементов в каждом столбце матрицы

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of real;
    b,c: array [1..20] of real;
    i,j,n,m,imax,jmax,k,z,e: byte;
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
imax:=1; jmax:=1;
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=60*random-30;
        write(a[i,j]:6:1);
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i; jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Макс. элемент ',a[imax,jmax]:0:1,', в строке ',imax,', в столбце ',jmax);
writeln('');
k:=20 div m;
z:=20 mod m;
e:=0;
for i:=1 to k do
    for j:=1 to m do
        begin
        inc(e);
        b[e]:=a[i,j]/a[imax,jmax];
        write(b[e]:8:1);
        end;
for j:=1 to z do
    begin
    inc(e);
    b[e]:=a[k+1,j]/a[imax,jmax];
    write(b[e]:8:1);
    end;
writeln;
k:=n-(20 div m);
z:=m-(20 mod m);
e:=0;
for j:=z+1 to m do
    begin
    inc(e);
    b[e]:=a[k,j]/a[imax,jmax];
    write(b[e]:8:1);
    end;
for i:=k+1 to n do
    for j:=1 to m do
        begin
        inc(e);
        b[e]:=a[i,j]/a[imax,jmax];
        write(b[e]:8:1);
        end;
readln;
end.