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

uses crt;
 
const n = 3;
type
mas = array [1..n,1..n] of integer;
var
a:mas;
i,j: integer;
buf:integer;
 
procedure zapolnenie;
begin
randomize;
for i:=1 to n do
 for j:=1 to n do
 a[i,j]:=random(20)+10;
end;
 
 
procedure vuvodmas;
begin
for i:=1 to n do
 begin
 for j:=1 to n do
 write(a[i,j],' ');
 writeln;
 end;
end;
 
procedure search;
var
temp,max,i_max:integer;
begin
max:=a[1,1];
for i:=2 to n do
 
 if a[i,i]>max then i_max:=i;
 if i_max>1 then
 begin
 temp:=a[i_max,i_max];
 a[i_max,i_max]:=a[1,1];
 a[1,1]:=temp;
 end;
 end;
 
begin
zapolnenie;
vuvodmas;
writeln;
search;
vuvodmas;
end.