Двумерный массив!!!

[hoangvu2005]

Помогите решить эту задачку:

Ввести двумерный массив А(N,M), вывести его.Найти максимум в массиве и далее найти минимум среди элементов той строки и того столбца,где содержится найденный максимум. Поменять пару найденных элементов местами.

Спасибо

[Sazary]

Что конкретно не получается? Где ваши наработки? Выложите то, что сделали.

[maladoy]

const
      n=5;
      m=5;
type
       typeMas=array[1..n,1..m] of integer;
............
Procedure Massiv(var a1:typemas);
   var i,j:integer;
   begin
    randomize;
     for i:=1 to n do
      for j:= 1 to m do
       A1[i,j]:=random(100)-random(100);
   end;

   procedure writeMas( var a2:typemas);
       var i,j:integer;
	   begin
         for i:=1 to n do begin
          for j:=1 to m do begin
             write(A2[i,j]:4);
           end;
           writeLn;
         end;
         writeLn;
       end;

вот те ввод и вывод