if ... then vereinfachen

[Phoenix]

Delphi-Quellcode:

var
   temp: single;
   i: integer;
   gewicht: array [1..4] of single;
begin
   // grösstes Element zwischenspeichern
   temp := 0;
   for i := 1 to 4 do
      if gewicht[i] > temp then
         temp := gewicht[i];

   // und nur noch damit vergleichen:
   if gewicht[1] > temp then
   begin
      // blafasel
   end;
end;