.. mache Dir ein Array fülle es mit den Werten von b[0] etc.
Sortiere das Array mit einem Sortieralgorythmus Deiner Wahl (bubbleSort)
Angenommen im sortierten Array a (index von 0..3) steht nun der maximale Wert an letzter Stelle,
das wäre a[3] der zweithöchste steht dann auf a[2].
Delphi-Quellcode:
for i:=2 to 3 do
case a[i] of
b[0] : ..
b[6] : ..
b[12]: ..
b[18]: ..
end;
Grüße
Klaus