Pascal/Turbo Pascal - Ayuda con numeros aleatorios mixto

Buenas, tengo que sacar un numero aleatorio, no nos dejan utilizar el random y por eso nos mandan a utilizar el metodo de congruencial mixto, pero si nos dejan utilizar el random para generar la semilla, por lo tanto se me ocurrio que podia sacar una funcion para la semilla y otro para generar el numero aletorio ya con la semilla generada, es decir, una funcion dentro de otra funcion, pero tambien vi que a lo mejor podia hacer todo el procedimiento dento de una funcion, pero yo no tengo claro el uso de las variables y los parametros por eso tiendo a confundirme mucho. Para quienes no recuerdan este es el congruencial mixto.

Congruencial Mixto

Los generadores congruenciales lineales generan una secuencia de numero pseudoaleatorios en la cual el próximo numero pseudoaleatorios es determinado a partir del numero generado, es decir el numero pseudoaleatorios Xn+1 es derivado a partir del numero pseudoaleatorios Xn
Para el caso particular del generador Congruencial mixto, la relación de decurrencia es la siguiente:

Xn+1 =( aXn + C) mod m

Donde:
X0 = la semilla (X0 > 0)
a= el multiplicador (a>0)
c= constante aditiva (c>0)
m= el modulo (m>X0 , m>a y m>c)

Esta relación de recurrencia nos dice que Xn+1 es el residuo de dividir aXn + c entre el modulo.
Veamos el siguiente ejemplo:

Generar 2 números aleatorios de modulo 8 con constantes a= 5 y c=7 y una semilla x0 = 4.
XN+1= (5XN + 7)(MODULO 8)

X1= 27 MODULO 8= 3
X2=22 MODULO 8= 6

Este es el codigo que pude sacar, me gustaria si me pudieran corregir y ayudarme. La idea de esto, es sacar dos numeros aletorios enteros por esta formula, Xn+1 =( aXn + C) mod m porque a pesar que salgan muchos numeros voy a tomar en cuenta son los dos primeros que salgan.

{A ver algo así}

program numero_aleatorio;
uses crt;
var
y, i, n_a : integer;


function numero : real;
Const
a = 20;
c = 80;
m = 1000;
Begin
i := random(10) + 1;
repeat
begin
n_a := (a * i + c) mod m; {formula del metodo mixto}
i := n_a; {Ahora i toma el valor de n_a para la siguiente vuelta}
end;
until(n_a = i); {Hasta que n_a sea igual a la semilla se parara el ciclo}
numero := n_a;
End;

BEGIN
clrscr;
randomize;
for y := 1 to 2 do
writeln(numero:0:0);
readkey;
END.