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

program zadacha;
 
var
matr: array[1..100,1..100] of integer;
i,j,r,k,x:integer;
begin
write('Enter rang: ');
readln(r);
writeln('Enter matr');
for i:=1 to r do
 for j:=1 to r do
  read(matr[i,j]);
k:=1;
for i:=1 to r do
  begin
  for j:=k to r do
   begin
   if matr[i,j]=0 then x:=x+1;
   end;
  k:=k+1;
  end;
writeln('0= ',x);
end.

uses crt;
var
  a: array[1..9,1..9] of integer;
  i,j: integer;
  n: integer;
  sch: integer;
begin
//------------------------------------------------------------------------------
while not(n in [1..9]) do
  begin
    gotoxy(1,1);
    clreol;
    write('Введите размер матрицы (от 1 до 9):');
    readln(n);
  end;
//------------------------------------------------------------------------------
for i:=1 to n do
for j:=1 to n do
  a[i,j]:=random(2);
//------------------------------------------------------------------------------
for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:5);
      writeln('');
  end;
//------------------------------------------------------------------------------
sch:=0;
i:=1;
repeat
j:=i+1;
  repeat
    if a[i,j]=0 then
      sch:=sch+1;
    j:=j+1;
  until j>n ;
i:=i+1;
until i>n-1;
//------------------------------------------------------------------------------
write('Кол-во нулевых элементов:',sch);
//------------------------------------------------------------------------------
end.

program a1;
var
matr: array[1..100,1..100] of integer;
i,j,r,k,x:integer;
begin
write('Enter rang: ');
readln(r);
writeln('Enter matr');
for i:=1 to r do
 for j:=1 to r do
  read(matr[i,j]);
k:=1;
for i:=1 to r do
  begin
  for j:=k to r do
   begin
   if matr[i,j]=0 then x:=x+1;
   end;
  k:=k+1;
  end;
writeln('0 = ',x);
end.