Помогите! Очень нужен алгоритм к такой программе :
var
a: array[1..5, 1..4] of integer;
i, j, max, min, imax: integer;
jmax, imin,jmin, tmp: integer;

begin
for i := 1 to 5 do
for j := 1 to 4 do
read(a[i, j]);

for i := 1 to 5 do
begin
for j := 1 to 4 do
write(a[i, j]:4, ' ');
writeln;
end;

max := a[1, 1];
for i := 1 to 5 do
for j := 1 to 4 do
begin
if max < a[i, j] then
begin
max := a[i, j];
imax := i;
jmax := j
end;

min := a[1, 1];
if min > a[i, j] then
begin
min := a[i, j];
imin := i;
jmin := j
end;
end;

write('max = ', max);
writeln(' a=[', imax, ',', jmax, ']');
write('min = ', min);
writeln(' a=[', imin, ',', jmin, ']');

for j := 1 to 4 do
begin
tmp := a[imax, j];
a[imax, j] := a[imin, j];
a[imin, j] := tmp;
end;

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