Есть ли в заштрихованной области массива элемент, равный введенному

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    n,i,j,k,p:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if ((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i))then textcolor(10)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textcolor(15);
write('Введите число для поиска в выделенной области k=');
readln(k);
p:=0;
for i:=1 to n do
for j:=1 to n do
if (((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i)))and(a[i,j]=k)then p:=1;
if p=0 then write('Числа ',k,' в выделенной области нет')
else
 begin
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      if ((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i))then
        begin
         textcolor(10);
         if a[i,j]=k then textcolor(13);
        end
      else textcolor(15);
      write(a[i,j]:4);
     end;
    writeln;
   end;
  textcolor(15);
  write('Число ',k,' в выделенной области есть')
 end;
readln
end.

program P2; var S, X: real;
 I, N: integer;
 begin read(N,X); S:=0; I:=1;
while I<=N do S:=sqrt(S+X);
 I:=I+1; writeln(S)
 end.

program P2; 
var S, X: real;
     I, N: integer;
begin
readln(N,X); 
S:=0; I:=1;
while I<=N do 
 begin
  S:=sqrt(S+X);
  I:=I+1;
 end;
writeln(S);
readln
 end.

Program massivik;
Var A:array[1..10] of integer;
 I,j:integer;
  Procedure Exchange (var a,b: integer);  var c:integer;
            begin c:=a; a:=b; b:=c end;
  Begin for i:=1 to 10-1 do
         for j:=2 to 10-i+1 do
          if A[j]<A[j-1] then Exchange(A[j],A[j-1]);
                    End.