Имеются ли среди элементов побочной диагонали заданной целочисленной матрицы A(N, N) числа, равные нулю.

Program apTyp;
Uses crt;
Var A: Array [1..100,1..100]of Real;
    X: Array [1..100] of Real;
    I,J,M,N: Integer;
    Y: Real;
Begin
clrscr;
   Write ('n='); ReadLn(n); Write ('m='); ReadLn(m);
   For i:= 1 to n do
   For j:= 1 to m do
      begin
         Write ('A[',i,',',j,']=');
         ReadLn (A[i,j]);
      end;
   For i:= 1 to n do
      begin
         X[i]:= A[i,1];
           For j:= 1 to m do
             If A[i,j]>X[i] then X[i]:= A[i,j];
            WriteLn (A[i,j])
      end;
   Y:=0;
      begin
         For i:=1 to n-1 do
         begin
            Y:=Y+X[i]*X[n+1-i]; WriteLn ( X[i]);WriteLn ( X[n+1-i]);
            end ;
            writeln('Y=', Y);
 
      end;
End.

program test;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,p:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
write(a[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to n do
for j:=1 to n do
if j=(n-i+1) then
if a[i,j]=0 then writeln(a[i,j]);
readln;
end.

program test;
uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
i,j,x1,x2,y:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j],' ');
end;
writeln;
end;
y:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if j=1 then begin x1:=a[i,j]; x2:=a[n-i+1,j];end
else begin if a[i,j]>x1 then x1:=a[i,j]; if a[n-i+1,j]>x2 then x2:=a[n-i+1,j]; end;
end;
writeln(x1,'*',x2);
y:=y+x1*x2;
end;
writeln(y);
readln;
end.

if n mod 2:=0 then for i:=1 to (n mod 2)+1 do else for i:=1 to (n mod 2)

y:=y+2*x1*x2

m:=round(n/2); for i:=1 to m do