Pascal/Turbo Pascal - como ordenar datos en una matriz

{Transforma "Fila, Columna" en una psición lineal}

Function XYtoPos(Fila, Columna :Byte) :Word;

    Begin

          XYtoPos := (Fila-1)*200+Columna-1;

    End;  {XYtoPos}

{Transforma una posició lineal en "Fila, Columna"}

Procedure PosToXY(Pos :Word; Var Fila, Columna :Byte);

    Begin

         Inc(Pos);

         Columna := Pos Mod 200;

         Fila := (Pos Div 200)+1;

    End; {PosToXY}