Определить, есть ли среди элементов в заштрихованной области матрицы элемент равный А

const n=6;
var a:array[1..n,1..n] of byte;
    i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=i+j-1
    else a[i,j]:=(i+j)-n-1;
    write(a[i,j]:3);
   end;
  writeln
 end;
end.

const n=8;
var a:array[1..n*n] of real;
    b:array[1..n,1..n] of real;
    i,j,k:integer;
begin
randomize;
writeln('Массив');
for i:=1 to n*n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
k:=0;
for i:=n downto 1 do
if odd(i) then
for j:=n downto 1 do
 begin
  inc(k);
  b[i,j]:=a[k];
 end
else
for j:=1 to n do
 begin
  inc(k);
  b[i,j]:=a[k];
 end;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:5:2);
  writeln;
 end;
end.