Pascal/Turbo Pascal - AYUDAAAAAAAAA!

Necesito ayuda para realizar un programa de carreras de caracteres, se basa en que si yo presiono un numero del 1 al 3 los caracteres avanzan y si el numero que ganó fue el mio aparesca un letrero que diga GANASTE y si no que diga PERDISTE! solo me falta el final para poner los letreros de ahi en fuera todo esta bien.

Pones que son tres osea del 1 al 3 pues veras una forma seria con case.

case jugador of
1 : write('Ganador el 1');
2 : write('Ganador el 2');
3 : write('Ganador el 3');
end;

como no tengo el programa que ayas echo no puedo ayudarte mas suerte.