В двумерном массиве А найдите наибольший элемент, стоящий на главной диагонали и поменяйте его местами с первым элементом — Pascal(Паскаль)

const
  n=4;
var
  a:array [1..n,1..n] of integer;
  i,j,max:integer;
begin
 
  writeln('Matrix:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;

  max:=1;
  for i:=2 to n do
    if a[i,i]>a[max,max] then
      max:=i;
 
  j:=a[max,max];
  a[max,max]:=a[1,1];
  a[1,1]:=j;
 
  writeln('Result:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:2,' ');
    writeln
  end;
end.