[Delphi]: Сортировка массива, состоящего из максимальных элементов заданных матриц

[hozer]

Помогите выполнить задание.С Delphi впервые столкнулся.

[newerow1989]

type tArr=array of array of real;

function max(p:tArr):real;
var i,j:integer;
begin
   Result:=p[Low(p),Low(p[Low(p)])];
   For i:=Low(p) to High(p) do
      For j:=Low(p[i]) to High(p[i]) do
         If Result<p[i,j] then
            Result:=p[i,j];
end;

var a,b,c,d:tArr;
    x,y,z,w,m:real;
    dalee:boolean;
begin
   SetLength(a,3,3);
   a[0,0]:=0.5;
   a[0,1]:=2.8;
   a[0,2]:=-1;
   a[1,0]:=4.5;
   a[1,1]:=7.7;
   a[1,2]:=0.3;
   a[2,0]:=-1.5;
   a[2,1]:=0.5;
   a[2,2]:=3;
   x:=max(a);
   Writeln(x:5:2);
   SetLength(b,3,2);
   b[0,0]:=1.8;
   b[0,1]:=2.5;
   b[1,0]:=4.1;
   b[1,1]:=3.2;
   b[2,0]:=0.8;
   b[2,1]:=1;
   y:=max(b);
   Writeln(y:5:2);
   SetLength(c,2,3);
   c[0,0]:=0.85;
   c[0,1]:=3.1;
   c[0,2]:=2;
   c[1,0]:=2.1;
   c[1,1]:=-3.05;
   c[1,2]:=1;
   z:=max(c);
   Writeln(z:5:2);
   SetLength(d,2,2);
   d[0,0]:=0.25;
   d[0,1]:=1;
   d[1,0]:=-0.5;
   d[1,1]:=0.9;
   w:=max(d);
   Writeln(w:5:2);
   Writeln;
   Repeat
      dalee:=true;
      If x>y then
      begin
         dalee:=false;
         m:=x;
         x:=y;
         y:=m;
      end;
      If y>z then
      begin
         dalee:=false;
         m:=y;
         y:=z;
         z:=m;
      end;
      If z>w then
      begin
         dalee:=false;
         m:=z;
         z:=w;
         w:=m;
      end;
   Until dalee;
   Writeln(x:5:2);
   Writeln(y:5:2);
   Writeln(z:5:2);
   Writeln(w:5:2);
   Readln;
end.

[hozer]

Простите , но можете подсказать в чем проблема в моем коде?У меня при выводе массива выдает нули.

procedure vyvod(x:matr; Matrix_A:string; a:tlabel);
var i,j:byte;
begin
a.caption:=Matrix_A+#13;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
a.caption:=a.caption+format('%5.1f' ,[x[i,j]]);
end;
a.Caption:=a.caption+#13;
end;
end;
procedure vyvod1(x:matr1; Matrix_B:string; b:TLabel);
var i,j:Byte;
begin
b.Caption:=Matrix_B+#13;
for i:=1 to 3 do begin
for j:=1 to 2 do begin
b.caption:=b.Caption+format('%5.1f' ,[x[i,j]]);

end;
b.Caption:=b.caption+#13;
end;
end;
procedure vyvod2(x:matr2; Matrix_C:string; c:Tlabel);
var i,j:byte;
begin
c.caption:=Matrix_C+#13;
for i:=1 to 2 do begin
for j:=1 to 3 do begin
c.caption:=c.caption+' '+ Format('%5.1f',[x[i,j]]);
end;
c.Caption:=c.caption+#13;
end;
end;
procedure vyvod3( x:matr3; Matrix_D:string; d:TLabel);
var i,j:Byte;
begin
d.caption:=Matrix_D+#13;
for i:=1 to 2 do begin
for j:=1 to 2 do begin
d.caption:=d.Caption+' '+format('%5.1f',[x[i,j]]);
end;
d.Caption:=d.caption+#13;
end;
end;
procedure TForm1.vvodmatrici1Click(Sender: TObject);
begin
vyvod(a,'Matrix_A',label1);
vyvod1(b,'Matrix_B',label2);
vyvod2(c,'Matrix_C',label3);
vyvod3(d,'Matrix_D',label4);
end;
{Ïîèñê ìàêñèìàëüíûõ ýëåìåíòîâ ìàòðèöû}
function max(a:matr):real; var k:real;
var i,j:Byte;
begin
k:=a[1,1];
for i:=1 to 3 do begin
for j:=1 to 3 do begin

if a[i,j]>k then k:=a[i,j];
end;
end;

h[1]:=k;
end;
function max1(b:matr1):Real;
var q:Real;
var i,j:Byte;
begin
q:=b[1,1];
for i:=1 to 3 do begin
for j:=1 to 2 do begin
if b[i,j]>q then q:=b[i,j];

end;
end;
h[2]:=q;
end;
function max2(c:matr2):Real; var o:Real;
var i,j:Byte;
begin
o:=c[1,1];
for i:=1 to 2 do begin
for j:=1 to 3 do begin
if c[i,j]>o then o:=c[i,j];
end;
end;
h[3]:=o;
end;
function max3(d:matr3):Real; var u:real;
var i,j:Byte;
begin
u:=d[1,1];
for i:=1 to 2 do begin
for j:=1 to 2 do begin
if d[i,j]>u then u:=d[i,j];
end;
end;
h[4]:=u;
end;



{ïðîöåäóðà ñîðòèðîâêè ìàññèâà}
procedure TForm1.sort1Click(Sender: TObject);

var
i,j:byte;
buf:Real;




begin
begin
for i:=1 to 4 do
for j:=1 to 4-i do
if h[j]>h[j+1] then begin
buf:=h[j];
h[j]:=h[j+1];
h[j+1]:=buf;
end;
for i:=1 to 4 do
label5.Caption:=label5.Caption+' '+floattostr(h[i]);
end;


end;

{Çàêðûòèå ôîðìû}
procedure TForm1.N1Click(Sender: TObject);

begin
close
end;



end.