Матрица. Процедура

[Альтависта]

Собственно текст задачи:
Составить процедуру, которая находит минимальный и максимальный элементы всей матрицы и переписывает все элементы, которые находятся между ними(при просмотре по строкам) в одномерный массив.

Мучаюсь с ней уже очень долго, потому что в смысл процедуры никак не могу вникнуть..(( Вот, что я пока что сумела сделать:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
  const
  Mm=12; Nn=10;
  type
  matr=array[1..Mm,1..Nn] of real;
  procedure extr(a:matr; n,m:integer; max, min:real );
  var
  i,j, imax, imin, jmin, jmax:integer;
begin
max:=a[1,1];
min:=a[1,1];
Imax:=1;
Imin:=1;
jmax:=1;
jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
  max:=a[i,j];
  imax:=i;
  jmax:=j;
end
else
if a[i,j]<min  then
 begin
  min:=a[i,j];
  imin:=i;
  jmin:=j;
end;
end;
var
a:matr;
n,m,i,j:integer;
maxx,minn:integer;

begin
 write('vvedite kol-vo strok i stolbcov:');
 readln(n,m);
  writeln('vvedite matricy po strokam');
  for i:=1 to n do
  begin
  for j:=1 to m do
  read(a[i,j]);
  readln;
  end;

extr(a,n,m, maxx, minn);
writeln('extremumi:', maxx, minn);
readln;
end.

Но программа зараза, даже элементы найти не может(((

Уважаемые форумчане, пожалуйста, кто разбирается помогите!!! Свои силы я исчерпала(((
Программа - турбо дэльфи.

[Alex Cones]

Вот тебе макс и мин:http://www.programmersforum.ru/showthread.php?t=70310

[Альтависта]

Спасибо, я это уже прочитала! И задачу написала по поводу макс и мин элементов! Но через процедуру не хочет работать...И в последней части задачи затруднения...

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

[Chudo4258]

Может так попробывать

 procedure extr(a:matr; n,m:integer; var max, min:real );

также, чтобы переписывает все элементы, которые находятся между max и min, нужно чтобы процедура выдавала значения imax, imin, jmin, jmax

Напрмер вот так

 procedure extr(a:matr; n,m:integer; var max, min:real; var imax, imin, jmin, jmax);

[Альтависта]

Ааааааа, ну ведь точно! они же меняются!!!!! О, ужас((( А я-то думала) Спасибо, а со второй частью задачи не могли бы помочь?

Спасибо! А как при просмотре по строкам сформировать новый массив из этих чисел??...

[Chudo4258]

Я бы сделал в цикле while, начиная с imax, jmax (или imin, jmin) и заканчивая обратным, переприсваивать В[k]:=A[i,j]
Начинать с того, что меньше, если imax<imin то начинать с imax, jmax. Если imax>imin то начинать с imin, jmin