Нужно написать алгоритм

[d.e.w]

нужно написать алгоритм по этой программе.
Код:
program lab3;
uses crt;
var
a : array [1..100,1..100] of Integer;
i,j,N,mini,minj,maxi,maxj,t : Integer;
begin
writeln('Введите размерность массива');
read(N);
for i:=1 to N do
for j:=1 to N do a[i,j] := random(100);
for i:=1 to N do
begin
for j:=1 to N do
write(a[i,j]:3,' ');
writeln;
end;
mini := 2 ; minj := 1;
for i:=2 to N do
for j:= 1 to i-1 do
if a[i,j] < a[mini,minj] then begin mini:=i;minj:=j;
end;
writeln(mini,' ',minj);
maxi := 1 ; maxj := 1;
for i:=1 to N do
for j:= 1 to N-i do
if a[i,j] > a[maxi,maxj] then begin maxi:=i;maxj:=j;end;
writeln(maxi,' ',maxj);
t:= a[maxi,maxj];
a[maxi,maxj] := a[mini,minj];
a[mini,minj] := t;
writeln;
for i:=1 to N do
begin
for j:=1 to N do
write(a[i,j],' ');
writeln;
end;
end.

Заранее благодарен всем , кто поможет.