Определить хотя бы один элемент, представимый в виде суммы квадратов двух других элементов

procedure square(a,b,n:integer; var f:boolean);
begin
f:=n=a*a+b*b;
end;
var m:array[1..100] of integer;
    n,i,j,k,p,i1,j1,k1:integer;
    f:boolean;
begin
randomize;
repeat
write('Введите размер массива от 20 до 100 n=');
readln(n);
until n in [20..100];
writeln('Массив');
for i:=1 to n do
 begin
  m[i]:=1+random(50);
  write(m[i]:4);
 end;
writeln;
i:=1;
p:=0;
while(i<=n)and(p=0) do
 begin
  j:=1;
  while(j<n)and(p=0) do
   begin
    k:=j+1;
    while(k<=n)and(p=0) do
     begin
      square(m[j],m[k],m[i],f);
      if f then
       begin
        p:=1;
        i1:=i;
        j1:=j;
        k1:=k;
       end
      else inc(k);
     end;
    if p=0 then inc(j);
   end;
  if p=0 then inc(i);
 end;
if p=0 then write('Нет числа, представимого в виде суммы квадратов двух других чисел')
else write(m[i1],'=',m[j1],'^2+',m[k1],'^2')
end.