Du könntest z.B. folgendes machen:
Delphi-Quellcode:
type
THilfsArray = record
Index: Integer;
Wert: Byte;
end;
HilfsArray = Array [0..3] of THilfsArray;
Jetzt hast du ein Array mit vier Elementen, in das du deine vier zu sortierenden Werte (inklusive des Ursprungsindex) eintragen kannst.
Delphi-Quellcode:
HilfsArray[0].Index := 0;
HilfsArray[0].Wert := B[0];
Jetzt rufst du dein Bubblesort auf und sortierts damit das HilfsArray nach HilfsArray.Wert. Jetzt kennst du die beiden größten Werte und auch den dazugehörigen Index im Array B. Hier musst du die beiden Werte nur noch entfernen.
Das ist sicher nicht der intelligenteste Weg, aber es wäre eine Möglichkeit.