В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы

program werty;
Uses CRT;
Var
a: array [1..3,1..3]of integer;
i,j,m,n,max,min,s,d,f,g: integer;
 Begin
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 write('a[',i,',',j,']=');
 readln (a[i,j]);
 end;
For i:= 1 to 3 do
Begin
For j:= 1 to 3 do
write (a[i,j]:3);
writeln;
end;
 max:=a[1,1];
For i:=1 to 3 do
For j:=1 to 3 do
Begin
If a[i,j]> max then
max:=a[i,j];
f:=i;
g:=j;
end;
writeln('max=',max);
min:=a[1,1];
For i:=1 to 3 do
For j:=1 to 3 do
Begin
If a[i,j]< min then
min:=a[i,j];
f:=i;
g:=j;
end;
writeln('min=',min);
end.

program werty;
 Uses CRT;
 Var
 a: array [1..3,1..3]of integer;
 i,j,m,n,max,min,s,d,f,g, i_min, j_min, i_max, j_max: integer;
 Begin
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 write('a[',i,',',j,']=');
 readln (a[i,j]);
 end;
 i_min:=1; j_min:=1; i_max:=1; j_max:=1;
 For i:= 1 to 3 do
 Begin
 For j:= 1 to 3 do
 write (a[i,j]:3);
 writeln;
 end;
 max:=a[1,1];
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 If a[i,j]> max then begin
 max:=a[i,j];
 i_max:=i; j_max:=j;
 end;
 f:=i;
 g:=j;
 end;
 writeln('max=',max);
 min:=a[1,1];
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 If a[i,j]< min then begin
 min:=a[i,j];
 i_min:=i; j_min:=j;
 end;
 f:=i;
 g:=j;
 end;
 writeln('min=',min);
 g:=a[i_min,j_min]; a[i_min,j_min]:=a[i_max,j_max]; a[i_max,j_max]:=g;
 writeln('Полученная матрица:');
  For i:= 1 to 3 do
 Begin
 For j:= 1 to 3 do
 write (a[i,j]:3);
 writeln;
 end;
 end.