Pascal/Turbo Pascal - ingresar 2 datos

hola porfavor necesito ayuda el ejerciocio es el siguiente:
Dado una aserie de M pares (color, numero) que corresponden a los tiros de una ruleta. Se pide informar :
cuantas veces salio el numero cero y el numero anterior a cada cero....... etc..

bueno en si mi problema es que nose como ingresar dos valores juntos y como hacer referencia a cada una de ellos por separado cuando los necesito plissssss ayudaaaa

desde ya muchas gracias!!!

repeat
Write('Ingrese color (0=negro, 1=rojo): ');
ReadLn(Color);
until (Color = 0) or (Color = 1);
repeat
Write('Ingrese número (0-36): ');
ReadLn(Numero);
until (Numero >=0) or (Numero <=36);

Y ya está :S.