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

uses crt;
type mas=array [1..25] of integer;
var x,y,z: mas;
 
function KolPol (a: mas; d: integer):integer;
var i,k: integer;
begin
i:=1;
while (a[i]>0) and (i<=d) do
      begin
      inc(k);
      inc(i);
      end;
KolPol:=k;
end;
 
procedure GenM (c: char; d: integer; var a: mas);
var i: integer;
begin
writeln('Дан массив ',c);
for i:=1 to d do
    begin
    a[i]:=random(101)-20;
    write(a[i]:4);
    end;
writeln('');
end;
 
begin
GenM ('X',16,x);
writeln('Количество положительных до отрицательного ',KolPol(x,16));
GenM ('Y',20,y);
writeln('Количество положительных до отрицательного ',KolPol(y,20));
GenM ('Z',25,z);
writeln('Количество положительных до отрицательного ',KolPol(z,25));
end.

uses crt;
var a: array [1..100,1..100] of integer;
    b,c: array [1..100] of integer;
    n,i,j,sum,k: integer;
begin
writeln('Дана матрица');
for i:=1 to 10 do
    begin
    for j:=1 to 15 do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        end;
    writeln;
    end;
for j:=1 to 15 do
    begin
    sum:=0;
    k:=0;
    for i:=1 to 10 do
        if a[i,j]>0 then
           begin
           inc(k);
           inc(sum,a[i,j]);
           end;
    b[j]:=sum;
    c[j]:=k;
    end;
writeln('Сумма и количество положительных');
for j:=1 to 15 do
    write(b[j]:4);
writeln;
for j:=1 to 15 do
    write(c[j]:4);
end.