Найти количество нулевых элементов матрицы, стоящих: выше главной диагонали; ниже главной диагонали

program matrix; 
const 
n=3; 
var 
c: array[1..n,1..n] of real; 
i,j,k1,k2,k3: integer; 
begin 
writeln('введите элементы матрицы с:'); 
      for i:=1 to n do 
        for j:=1 to n do 
readln (c[i,j]); 
writeln('матрица с:'); 
      for i:=1 to n do 
begin 
      for j:=1 to n do 
begin 
write(c[i,j]:8); 
      if (i<j) and (c[i,j]=0) then 
                                  inc(k1); 
      if (i>j) and (c[i,j]=0) then 
                                  inc(k2); 
      if (i+j<>n+1) and (c[i,j]=0) then     
                                  inc(k3); 
end; 
    writeln; 
end; 
writeln('количество нулевых элементов, стоящих:'); 
writeln('выше главной диагонали: ',k1); 
writeln('ниже главной диагонали: ',k2); 
readln; 
end.

uses crt;
const n=3;
type mtr=array[1..n,1..n] of real;
procedure vvod(var a:mtr);
var i,j:byte;
begin
writeln('введите элементы матрицы:');
for i:=1 to n do
for j:=1 to n do
readln (a[i,j]);
end;
procedure vyvod(a:mtr);
var i,j:byte;
begin
writeln('Введенная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln;
 end;
end;
function kol(a:mtr;d:byte):byte;
var i,j,k:byte;
begin
k:=0;
if d=1 then
 begin
  for i:=1 to n-1 do
  for j:=i+1 to n  do
  if a[i,j]=0 then inc(k)
 end
else
 begin
  for i:=2 to n do
  for j:=1 to i-1 do
  if a[i,j]=0 then inc(k);
 end;
kol:=k;
end;
var a:mtr;
begin
clrscr;
vvod(a);
vyvod(a);
writeln('количество нулевых элементов, стоящих:');
writeln('выше главной диагонали: ',kol(a,1));
writeln('ниже главной диагонали: ',kol(a,2));
readln;
end.