Составить алгоритм и программу для нахождения элементов матрицы размерностью NxN

Uses Crt;
const
m=10000;
var
a: array [1..m, 1..m] of integer;
k,i,j,n:integer;
begin
clrscr;
writeln('raxmeri mtrx');
read(n);
for i:=1 to n do 
for j:=1 to n do 
a[i,j]:=random(5);
for i:=1 to n do begin
for j:=1 to n do 
write(a[i,j]:3);
writeln;
end;
k:=0;
for i:=1 to n do begin
for j:=1 to n do 
if (a[i,j]=0) and (i+j>n+1) then begin
k:=k+1; end; end;
writeln('kol-vo 0 el pod dob diag=',k);
end.

const
  m = 100;
 
var
  a: array [1..m, 1..m] of real;
  k, i, j, n: integer;
 
begin
  writeln('raxmeri mtrx');
  read(n);
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      a[i, j] := cos(i * pi / 3) + sin(j * pi / 3);
      write(a[i, j]:8:3);
    end;
    writeln;
  end;
  k := 0;
  for i := 1 to n do 
  begin
    for j := 1 to n do 
      if (a[i, j] = 0) and (i + j > n + 1) then 
        k := k + 1; 
  end;
  writeln('kol-vo 0 el pod dob diag=', k);
end.