Mergesort für zweidimensionales Array

[sx2008]

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;