Moin!
Dein Ansatz geht leider nicht - ich kann mir da sonst auch nur eine Schleife vorstellen:
Delphi-Quellcode:
Var
i : Integer;
IsOk : Boolean;
Begin
IsOk := True;
for i := 2 To 4 Do
If Not ( Gewicht[1] > Gewicht[i] ) Then
Begin
IsOk := False;
Break;
End;
If ( IsOk ) Then
Spieler[Nummer].RichtungNeu := HOCH;
MfG
Muetze1