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

type mass=array[1..25,1..25]of integer;
     VeCT=ARRAY[1..25]OF INTeGeR;
var b:VeCT;
    a:mass;
    n,k,i,j:integer;
procedure input;
 begin
  write('n=');read(n);
  writeln('введите эл-ты матрицы');
  for i:=1 to n do
  for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   read(a[i,j]);
  end;
 end;
procedure output;
 begin
  writeln('¬*матрица* A');
  for i:=1 to n do
  begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
  end;
  writeln;
 end;
procedure main;
 begin
  for j:=1 to n do
  begin
   k:=0;
   for i:=1 to n do
   if (a[i,j]>0) then k:=k+1;
   write('k=',k);
      eND;K:=B[J];
 i:=1;
 for j:=1 to n do
 a[1,j]:=b[j];
 i:=2;
 for j:=1 to n do
 b[j]:=(j-1)*(J-1);
 
 end;
begin
 clrscr;input;
 clrscr;output;
 main;
 readkey
end.

uses crt;
type mass=array[1..25,1..25]of integer;
var a,b:mass;
    n,k,i,j:integer;
procedure input;
 begin
  write('n=');read(n);
  writeln('введите эл-ты матрицы');
  for i:=1 to n do
  for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   read(a[i,j]);
  end;
 end;
procedure output;
 begin
  writeln('*матрица* A');
  for i:=1 to n do
  begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
  end;
  writeln;
 end;
procedure main;
 begin
  for j:=1 to n do
   begin
    k:=0;
    for i:=1 to n do
    if a[i,j]>=0 then k:=k+1;
    b[1,j]:=k;
   b[2,k]:=sqr(j-1);
  end;
 writeln('Массив В:');
 for i:=1 to 2 do
  begin
   for j:=1 to n do
   write(b[i,j]:4);
   writeln;
  end;
end;
begin
 clrscr;input;
 clrscr;output;
 main;
 readkey
end.