Pascal/Turbo Pascal - Ayuda urgente por favor! por favor!

Hola, tengo un problema grandisimo y nose como hacerlo..
Necesito hacer un programa en turbo pascal que lea fracciones (las que uno le diga) , las ordene y las presente... Estuve viendo el el sector de codigo de fuente y me aparecio algo muy parecido, el del metodo de la burbuja, pero ahi sale que ordena reales y enteros.. yo necesito que sean fracciones... Alguien podria modificar esto para que funcione con fracciones??? por favor es urgente, es para un ramo en la universidad y sei no lo hago bien, me hechan... :(

PROGRAM BURBUJAS;
USES WINCRT; { Utilizando la terminal de Windows }

{ Declaración de variables globales...}
VAR
N,I,CODG_ART:INTEGER;
TEMP:REAL;
X:ARRAY [1..100] OF REAL;
PAUSA:CHAR;
{ Procedimiento aplicando el método de Burbuja }
PROCEDURE BURBUJA;
BEGIN
FOR CODG_ART:=1 TO N-1 DO
FOR I:=CODG_ART+1 TO N DO
IF X[I]<X[CODG_ART] THEN
BEGIN { Intercambiando los números...}
TEMP:=X[CODG_ART];
X[CODG_ART]:=X[I];
X[I]:=TEMP;
END;
END;

BEGIN { Programa Principal}
WRITELN ('PROGRAMA DE ORDENACION DE DATOS NUMERICOS ENTEROS Y REALES....');
WRITELN;
WRITELN ('APLICANDO EL METODO DE BURBUJA....');
WRITELN;
WRITE ('CUANTOS REGISTROS INTRODUCIRA? ');
READLN (N);
WRITELN;
FOR I:=1 TO N DO
BEGIN
WRITE ('X[',I:3,']=? ');
READLN (X[I]);
END;
BURBUJA;
WRITELN;
WRITELN (' REGISTROS ORDENADOS EN FORMA ASCENDENTE');
WRITELN;
FOR I:=1 TO N DO
WRITELN ('X[',I:3,']=',X[I]:4:1);
WRITELN;
WRITELN;
WRITELN ('Diseñado por: Victor Manuel Evaristo Salinas ');
WRITELN;
WRITELN ('E-Mail: [email protected] y [email protected]');
WRITELN;
PAUSA:=READKEY;
END.

Matemáticamente las facciones son números fraccionarios del conjunto de los reales o sea que desde el punto de vista de Pascal puedes almacenar las fracciones en tipo real al resolver la fracción obviamente, pero con esto pierdes los valores de numerador y denominador, de modo que para lograr lo que quieres haría lo siguente, definiria un registro ta como:
type
tfraccion=record
numerador:integer
denominador:integer
resultado=real
end;
tfracciones=array [1..N] of tfraccion;
y aplicaría cualquiera de los métodos de ordenación por el campo resultado.