Die höchsten Array-Werte anzeigen

[Jens Schumann]

Hallo,
wie wäre es denn damit:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    Far200 : Array[0..199] of Integer;
    Far10  : Array[0..9] of Integer;
...
procedure TForm1.Button2Click(Sender: TObject);
var
  iCnt : Integer;
  jCnt : Integer;
  kCnt : Integer;
begin
  Far10[0]:=Far200[0];
  For jCnt:=Low(Far200)+1 to High(Far200) do
    begin
    For iCnt:=Low(Far10) To High(Far10)do
      If Far10[iCnt]<Far200[jCnt] then
        begin
        For kCnt:=High(Far10) DownTo iCnt+1 do
          Far10[kCnt]:=Far10[kCnt-1];
        Far10[iCnt]:=Far200[jCnt];
        Break;
        end;
    end;
  ShowMessage('Fertig');
end;