Pascal/Turbo Pascal - Obtener de un fichero 2 cantidades

Hola, ante todo perdonen mi ignoracia pero en una de mis prácticas me quede encajado en seguramente lo más faicl de la práctica, leer de un fichero.
Resulta que me dan un fichero tal que este: procesos.txt

1 9
2 5
5 8
4 6
2 7

3 8
5 10
1 2
5 7
3 2

2 3
10 9
4 5
10 10
1 7

De aqui debo de sacar los 2 numeros que aparecen en una misma variable registro llamada proceso.
Mi problema es aparte de que yo he intentado leer hasta el espacio y has el fin de linea e ir almacenando cada carácter leído en las variables; nose si por cada repeat que hace va leyendo una linea, ya que dentro del procedimiento no he puesto ningún contador.

Gracias por su amabilidad espero la respuesta tan pronto como puedan.. a ser posible antes de mañana a las 12... gracias nuevamente

Hola Nach.
Como sugerencia, deberías mostrar el código que ya tienes y que no te ha logrado funcionar.

En base a eso, nosotros podríamos decirte en qué te falta para que funcione, o podríamos modificarlo y explicarte el porqué.

Saludos!

PROCEDURE Leer_Proceso (VAR fic:TEXT; VAR p:t_proceso);
CONST ESPACIO=' ';
VAR caracter:string;i:integer;
BEGIN
i:=1;
repeat
read(fic,caracter[i]);
p.ciclos:=p.ciclos + caracter[i];
i:=i+1;
until caracter[i] = ESPACIO;
if caracter[i] = ESPACIO then
repeat
i:=i+1;
until caracter[i] <> ESPACIO;
repeat
read(fic,caracter[i]);
p.prioridad:=p.prioridad + caracter[i];
i:=i+1;
until eol(fic);
END;

Esto habia pensao, xro no me funciona