Задача на элементы прямоугольной матрицы

[Knife]

Уважаемы программисты, выручите меня пожалуйста с задачей на матрицу: Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами. Получить матрицу:
l1 1 1 1 1 1l
l1 0 1 0 1 0l
l1 1 1 1 1 1l
l1 0 1 0 1 0l
l1 1 1 1 1 1l
l1 0 1 0 1 0l

[Костян Пират]

я так понял 1е предложение - 1я задача, 2е предложение - 2я задача...

1я мне показалась интересной, вот какие мысли (я в общем-то начинающий, так что имейте ввиду):

program matr;
type
 mat = array [1..100,1..100] of integer;
 pnt = record
  x, y: integer;
 end;
var
 i,j,m,n: integer;
 mtr: mat;
 max,min: pnt;

begin
 readln(m,n);
 for i:=1 to m do
  begin
   for j:=1 to n do
    read(mtr[i,j]);
   writeln;
  end;

 max.x:=1;
 max.y:=1;
 min.x:=1;
 min.y:=1;

 for i:=1 to m do
  for j:=1 to n do
   begin
    if mtr[i,j]>mtr[max.x,max.y]
     then
      begin
       max.x:=i;
       max.y:=j;
      end;
    if mtr[i,j]<mtr[min.x,min.y]
     then
      begin
       min.x:=i;
       min.y:=j;
      end;
  end;

 i:=mtr[min.x,min.y];
 mtr[min.x,min.y]:=mtr[max.x,max.y];
 mtr[max.x,max.y]:=i;

 for i:=1 to m do
  begin
   for j:=1 to n do
    write(mtr[i,j],' ');
   writeln;
  end;

 readln;

end.

[Knife]

Да совершенно верно ты понял прошу прощения за не корректный ввод условий. )

[Knife]

а можно без процедур функций пожалуйста?, мне сказали что надо без процедур функций.