Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤12. Найти максимальный элемент и его индексы среди значений, лежащих на главной диагонали матрицы и выше нее — Pascal(Паскаль)

uses crt;
var a:array[1..12,1..12] of integer;
i,j,n,max,t,k:integer;
 
procedure dlg(max,t,k:integer);
 
begin
max:=a[1,1];
t:=1;
k:=1;
for i:=1 to n do
for j:=1 to n do
if (a[i,j]>max) and (i<=j) then
begin
max:=a[i,j];
t:=i;
k:=j;
end;
writeln;
writeln('max = ',max,' [',t,',',k,']');
end;
 
begin
clrscr;
randomize;
write('n = ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(100);
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
end;
writeln;
end;
dlg(max,t,k);
readln;
end.