Задача по информатике. Поменять в массиве местами максимальный и минимальный элементы

var A : Array [1..10,1..10] of integer;
i,j, mini, minj, maxi, maxj, min,max, temp: integer;
begin
for i := 1 to 10 do
begin
writeln();
for j := 1 to 10 do
begin
A[i,j] := random(100);
write(A[i,j], ' ');
end;
end;
min := A[1,1];
max := A[1,1];
for i := 1 to 10 do
for j := 1 to 10 do
begin
if A[i,j] < min then
begin
min := A[i,j];
mini := i;
minj := j;
end;
if A[i,j] > max then
begin
max := A[i,j];
maxi := i;
maxj := j;
end;
end;
temp:= max;
A[maxi,maxj] := A[mini,minj];
A[mini,minj] := temp;

writeln();
for i := 1 to 10 do
begin
writeln();
for j := 1 to 10 do
begin
write(A[i,j], ' ');
end;
end;
readln();
end.