Помогите решить задачу по программированию на языке паскаль, зарание спасибо.

const
N = 4; // размер массива
M = 6;
a = 1; // диапазон случайных значений
b = 90;
var
ar : array[1..N,1..M] of integer;
i,j,min,max,indMinI,indMinJ,indMaxI,indMaxJ,temp:integer;
begin

for i := 1 to N do begin
for j := 1 to M do begin
ar[i,j] := random(b - a + 1) + a; // заполняем случайными значениями
if(i = 1) and (j = 1) then begin // инициализируем
min := ar[i,j]; indMinI := i; indMinJ := j;
max := ar[i,j]; indMaxI := i; indMaxJ := j;
end;
write(ar[i,j]:3);
if(ar[i,j] > max) then begin // находим макс
max := ar[i,j]; indMaxI := i; indMaxJ := j;
end;
if(ar[i,j] < min) then begin // находим мин
min := ar[i,j]; indMinI := i; indMinJ := j;
end;
end;
writeln();
end;

// меняем мин и макс
temp := ar[indMinI,indMinJ];
ar[indMinI,indMinJ] := ar[indMaxI,indMaxJ];
ar[indMaxI,indMaxJ] := ar[indMinI,indMinJ];

// выводим исправленный массив
writeln();
for i := 1 to N do begin
for j := 1 to M do
write(ar[i,j]:3);
writeln();
end;
end.