Beim Sortieren gibt es zwei grundsätzliche Operationen:
1.) Vergleichen zweier Elemente
2.) Vertauschen zweier Elemente
In deinem speziellen Fall musst du lediglich dafür sorgen, das beim Vertauchen beide Werte vertauscht werden.
Als Vorübung dazu schreibe dir eine Prozedure, die diese Vertauschung vornimmt.
Delphi-Quellcode:
// Code ungeprüft, da IDE z.Zt. defekt - aber das Prinzip sollte klarwerden
type
TZeile =
array[0..1]
of integer;
TSortArray =
array[0..49]
of TZeile;
//= array[0..49][0..1] of integer;
procedure SwapArrayZeile(
var a, b : TZeile);
var
c : TZeile;
begin
c := a;
a := b;
b := c;
end;