Определить, есть ли в массиве такие числа a, b и c, для которых выполняется равенство: a^2 + b^2 = c^2. Эти тройки чисел напечатать. — Pascal(Паскаль)

uses crt;
const n=10;
      a:array[1..n] of integer=(1,4,9,8,3,12,5,7,13,18);
procedure Piphagor;
var i,j,k,p:byte;
begin
writeln('Тройки чисел, образующих равенство a^2+b^2=c^2');
p:=0;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if sqr(a[i])+sqr(a[j])=sqr(a[k]) then
 begin
  p:=1;
  writeln(a[i],',',a[j],',',a[k]);
 end;
if p=0 then writeln('Таких чисел нет');
end;
var i:byte;
begin
clrscr;
writeln('Заданный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
Piphagor;
readln
end.