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

uses
  SysUtils,
  math;
 
const m=15; n=15;
VAR A:array[1..m,1..n] of integer; k,i,j,o,p,s,t:integer;
 v:array[1..n] of integer;
 
 
begin
  writeln (' vvedite razmer matr');
  readln (k);
  writeln (' vvedite matr');
  for i:=1 to k do begin
    for j:=1 to k do readln (a[i,j]);
  end;
 
  writeln (' ishodnaya matr');
   for i:=1 to k do begin
    for j:=1 to k do write (a[i,j]:5);
    writeln;
  end;
  readln;
 
  o:=0; p:=0;
  for i:=1 to k do
  for j:=1 to k do
  if a[i,j]<0 then begin
    inc(o)
  end
    else begin
    inc(p)
    end;
  writeln (' kol-vo otrc=',o:2,'                 kol-vo pol=',p:2);
  readln;
 
   t:=0;
  for i:=1 to k do
  for j:=1 to k do
  if i=j then begin
  inc(t,a[i,j]);
  end;
  Writeln(' summa diagonali', t:2);
  readln;
 
  for i:=1 to k do begin s:=0;
  for j:=1 to k do
  if a[j,i]>0 then begin
  inc(s,a[j,i]);
  v[i]:=s;
  end;
  end;
  for i:=1 to k do writeln (' summa pol', v[i]:5);
    writeln;
  readln;
 
 
  for i:=1 to k do
  for j:=1 to k do
  if (A[i,j]<0) then begin
  a[i,j]:=0;
  end;
  writeln (' preobrazovanaya matr');
   for i:=1 to k do begin
    for j:=1 to k do write (a[i,j]:5);
    writeln;
  end;
  readln;
 
end.