Zahlenreihenfolge mit 4 Zahlen ordnen und anzeigen lassen?

[Klaus01]

Delphi-Quellcode:

const 
  maxAnzahl = 4;

type
  ZahlenArray = Array [0..maxAnzahl-1] of Integer;
  
var
  meineZahlen: ZahlenArray;


meineZahlen[0]:=StrToInt(Edit1.Text);
meineZahlen[1]:=StrToInt(Edit2.Text);
meineZahlen[2]:=StrToInt(Edit3.Text);
meineZahlen[3]:=StrToInt(Edit4.Text);

procedure sortieren (var zahlen:ZahleArray);
var
  i,j,hilf:integer;
begin
  for i:= length(zahlen)-1 downto 0 do
    for j:= 1 to i do
      begin
        if zahlen[j] < zahlen[j-1] then
          begin
            hilf:= zahlen[j-1];
            zahlen[j-1]:= zahlen[j];
            zahlen[j]:= hilf;
         end;
      end;
end;

//Aufruf:

  sortieren(meinZahlen);

  gross:=meienZahlen[3];
  mittel2:=meineZahlen[2];
  mittel1:=meineZahlen[1];
  klein := meineZahlen[0];