Упорядочить матрицы

[kjiokl]

Здравствуйте!У меня такая проблемка.....
дали задачу .....

Условие: Заданны три матрицы первая размерностью два на два вторая три на три третья два на два.Упорядочить по убыванию три числа x,y,z,где x-максимальный элемент матрицы 1 Y-матрицы 2 а Z vfnhbws 3.Поиск максимального элемента оформить в виде подпрограммы процедуры.


Я написал программу текст ниже но преподаватель просит чтобы вывод который я вывожу в label6 был написан в подпрограмме а не в основной программе....Господа если не сложно скажите как исправить сам пробовал не получается.....

procedure TForm1.FormCreate(Sender: TObject);
begin
   SG4.Cells[0,0]:=' Число';
   SG4.Cells[1,0]:=' Значение';
end;

procedure TForm1.Button1Click(Sender: TObject);
  const nm=5;
  type
   matr=array[1..nm,1..nm] of real;
  vect=array[1..nm] of real;
   Procedure Pmax(n:integer; Z:matr; var MaxZ:real);
   var
   a,b,c:matr;

    M:vect;

    i,j:integer;


  begin
  maxZ:=z[1,1];
     for i:=1 to n do
     for j:=1 to n do
          if z[i,j] > maxZ then maxZ:=z[i,j];

      end;
   var
        i,j,k:integer;
    ss:char;
    a,b,c:matr;
    x,y,z,t:real;
    m:vect;
    s:array[1..nm] of char;
begin
    for i:=1 to 2 do
     for j:=1 to 2 do
      begin
    a[i,j]:=strtofloat(SG1.Cells[j-1,i-1]);
    c[i,j]:=strtofloat(SG3.Cells[j-1,i-1]);
      end;
      for i:=1 to 3 do
     for j:=1 to 3 do
    b[i,j]:=strtofloat(SG2.Cells[j-1,i-1]);
      Pmax(2,a,x);
      Pmax(3,b,y);
      Pmax(2,c,z);
     Label5.Caption:='X(max) Матрицы А = '+floattostr(x)+#13+
                     'Y(max) Матрицы B = '+floattostr(y)+#13+
                     'Z(max) Матрицы С = '+floattostr(z);
                     m[1]:=x; m[2]:=y; m[3]:=z;
                     s[1]:='X'; s[2]:='Y'; s[3]:='Z';
          for k:=1 to 2 do
          for i:=3 downto k+1 do
           if m[i] > m[i-1] then
            begin
          t:=m[i]; ss:=s[i];
          m[i]:=m[i-1]; s[i]:=s[i-1];
          m[i-1]:=t; s[i-1]:=ss;
            end;
          for i:=1 to 3 do
           begin
        SG4.Cells[0,i]:=s[i];
        SG4.Cells[1,i]:=floattostr(m[i]);
           end;
end;

end.

[.Phoenix]

Намекну: У тебя есть 3 числа. Ты их получаешь независимые друг от друга. Внеси ту часть программы, смысл которой требуется внести в процедуру. Процедура как ты знаешь, выполняет действия, ей нужно только передать аргументы. Эта процедура будет создавать свой массив и сортировать элементы как тебе надо и конечно выводить. Эти аргументы и будут твои полученные 3 числа. Понял?

[kjiokl]

смутно.....Вы не могли бы сразу на примере кода показать?Я код выложил если можите исправте его .....Зарание спасибо....

[keef]

private
procedure vivod;


procedure TForm1.vivod;
begin
Label5.Caption:='X(max) Матрицы А = '+floattostr(x)+#13+
'Y(max) Матрицы B = '+floattostr(y)+#13+
'Z(max) Матрицы С = '+floattostr(z);

end;

Только для данного случая нужно сделать переменные x,y,z глобальными.
Вместо

Label5.Caption:='X(max) Матрицы А = '+floattostr(x)+#13+
'Y(max) Матрицы B = '+floattostr(y)+#13+
'Z(max) Матрицы С = '+floattostr(z);

Пиши vivod;

[kjiokl]

Увожаемый Keef!Спасибо большое за совет!!!Но дело в том что этот вывод должен быть не отдельной подпрограммой а должен быть записанн именно в той которая уже есть в моём коде.....Я уже всё перепробовал не получается....Видимо я чегото не допонимаю .....