Niedrigsten Werte in Array finden

[Blup]

Ich habe das eher so verstanden für jedes Fach das schlechteste Semester zu finden.
Wenn nur 1 aus n gefragt ist, kann man sich das sortieren auch sparen:

Delphi-Quellcode:

procedure MarkiereSchlechtesteNote(const AEditArr: array of TSpinEdit);
var
  i: Integer;
  Item: TSpinEdit;
begin
  Item := nil;
  for i := Low(AEditArr) to High(AEditArr) do
  begin
    if (Item = nil) or (Item.Value > AEditArr[i].Value) then
      Item := AEditArr[i];
    AEditArr[i].Color := clWindow;
  end;
  if Assigned(Item) then
    Item.Color := clRed;
end;

{Fach1}
MarkiereSchlechtesteNote([SpinEditFach1Semester1,
                          SpinEditFach1Semester2,
                          SpinEditFach1Semester3,
                          SpinEditFach1Semester4]);
{Fach2}
MarkiereSchlechtesteNote([SpinEditFach2Semester1,
                          SpinEditFach2Semester2,
                          SpinEditFach2Semester3,
                          SpinEditFach2Semester4]);
{usw.}