Определить порядковый номер максимального элемента главной диагонали матрицы А(8х8) — Pascal(Паскаль)

uses crt;
 
const n=8;
 
var i,j,el,max:integer;
    a:array[1..n,1..n] of integer;
    
begin
 
 for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(10)-5;
      write(a[i,j]:2, ' ');
    end;
    writeln;
  end;
  
  max:=a[1,1];
  
  for i:=1 to n do
    begin
      if a[i,i] > max then
      begin
        max:=a[i,i];
        el:=i;
      end;
    end;
  writeln('Максимального элемента главной диагонали - ',max);
  writeln('порядковый номер максимального элемента - ',el,',',el);
 
  
end.

uses crt;
var
a:array[1..8,1..8]of integer;
i,j,max,pos:integer;
begin clrscr;
randomize;
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(30);
for i:=1 to 8 do
 begin
  for j:=1 to 8 do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
max:=a[1,1];
for i:=1 to 8 do
for j:=1 to 8 do
if (i=j)and(a[i,j]>max) then
 begin
  max:=a[i,j];
  pos:=i;
 end;
writeln('max=',max,' :[',pos,',',pos,']');
readkey;
end.