Задана вещественная квадратная матрица A(n*n). Определить значение и положение двух элементов a[i,j] и a[l,k], для которых параметр P=sin|a[i,j] — a[k,l]| максимальное значение. Для каждой пары элементов параметр P должен вычисляться только один раз — Pascal(Паскаль)

program stive;
uses crt;
const
n=10;
var
a:array[1..n,1..n] of real;
i,q,k,l,t,e,c,b,z:integer;
p,x,y:real;
begin
clrscr;
randomize;
for i:=1 to n do
for q:=1 to n do
begin
a[i,q]:=random(181);
end;
for i:=1 to n do
begin
for q:=1 to n do
write(a[i,q]:7:1);
writeln;
end;
p:=sin(a[1,1]-a[2,2]);
for z:=1 to n-1 do
 for k:=1 to n-1 do
 for l:=1 to n-1 do
 for t:=1 to n-1 do
 for e:=1 to n-1 do
if sin(a[k+1,l+1]-a[t+1,e+1])>p then
begin
x:=a[k+1,l+1];
y:=a[t+1,e+1];
p:=sin(a[k+1,l+1]-a[t+1,e+1]);
end;
writeln;
write(x,' ',y);
writeln;
writeln;
write(p);
end.