Pascal/Turbo Pascal - urgente ayuda con programa en turbo pascal

buanas necesito urgente ayuda tengo que realizar un programa en turbo pasacal que haga lo siguiente

Realice un programa en Turbo Pascal para la una agencia de loterías:
a) Trabajan 4 vendedores en la agencia
b) Se venden 4 loterías (Chance, Triple Zodiacal, Triple León y Caracas)
c) Para Chance y Caracas hay 3 sorteos (12m, 4pm y 7pm); para las otras, hay sólo 2 sorteos (12m y 8pm)
d) Jugada mínima por cada triple: 1BsF; jugada máxima: 100BsF)
e) Sólo se venden triples: desde 000 hasta 999
f) Al final de cada jugada se debe mostrar la lotería, sorteo, triple y monto jugado
g) Se debe calcular el total a cancelar
h) Debe aparecer en pantalla un ticket con la fecha, nombre del vendedor, jugadas realizadas y total a cancelar

Importante:
• Agregue mensajes de bienvenida, de instrucciones y de error donde sea necesario

ya lo he empezado a hacer pero no logro hacer que al seleccionar el usuario el nombre me salga en la pantalla estos dos modelos son los que llevo hasta ahora...

program loteriakeyoro;
uses crt;
var
usuario4,loteria,sorteo: integer;
USUARIO:STRING;
jugada,triple: real;

begin
clrscr;
writeln ('Hola, bienvenido a la loteria KEYORO');
writeln ('Por favor coloque su usuario');
readln (usuario4);
case usuario4 of
1:USUARIO:='usuario1';
2:USUARIO:='usuario2' ;
3:USUARIO:='usuario3';
4:USUARIO:='usuario4';
if (USUARIO4>=1) AND (USUARIO4<=4) THEN
WRITELN ('BIENVENIDO ',USUARIO,'.')
ELSE
WRITELN ('USUARIO DESCONOCIDO');
end;
readln;
Writeln ('Bienvenido ',1);
writeln ('Por favor, elija la loteria');
Writeln ('Loterias: 1=Chance, 2=Triple Zodiacal, 3=Triple Leon,4=Caracas');
readln (Loteria);
If(loteria<1) or (loteria>4) then
begin
repeat
Writeln ('Loteria desconocida');
writeln ('Por favor, elija la correcta');
readln (Loteria);
until (Loteria=1) or (loteria=2) or (loteria=3) or (loteria=4);
end;
if (loteria =1) or (loteria=4) then
begin
writeln ('Elija el Sorteo');
writeln ('Sorteos: 1= 12:00 pm, 2= 4:00 pm, 3= 7:00 pm');
readln (Sorteo);
if (Sorteo<1) or (sorteo>3) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=1) or (sorteo=2) or (sorteo=3);
end;
end
else
if (loteria=2) or (loteria=3) then
begin
writeln ('Elija el sorteo');
writeln ('Sorteos: 4= 12:00 pm, 5= 8:00 pm');
readln (Sorteo);
If (Sorteo<4) or (Sorteo >5) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=4) or (sorteo=5);
end;
end;
If (sorteo=1) or (sorteo=2) or (sorteo=3) or (sorteo=4) or (sorteo=5) then
Begin
Writeln ('Por favor indique el valor de la jugada');
Writeln ('La jugada no debe ser mayor a 100 bsf, ni menor a 1 bsf');
readln (Jugada);
if (jugada>100) or (jugada<1) then
begin
repeat
writeln ('Jugada sobre pasa el limite establecido');
writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Jugada);
until (jugada>=1) and (jugada<=100);
end;
end;
If (Jugada>=1) or (jugada<=100) then
Begin
Writeln ('Registre el triple a jugar');
Readln (Triple);
If (Triple >999) or (Triple<0) then
Begin
repeat
Writeln ('Triple sobre pasa el parametro establecido');
Writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Triple);
until (triple<=999) and (triple>=0);
end;
end;
Begin
Writeln(loteria,' ',sorteo, ' ',triple, ' ',jugada,' .');
end;
end. ;
readln;
End.


y este es el segundo:

program loteriakeyoro;
uses crt;
var
usuario,loteria,sorteo: integer;
jugada,triple: real;

begin
clrscr;
writeln ('Hola, bienvenido a la loteria KEYORO');
writeln ('Elija su usuario');
writeln ('Usuarios: 1= Usuario1, 2= Usuario2, 3= Usuario3, 4= Usuario4');
readln (usuario);
if (usuario<1) or (usuario>4) then
begin
repeat
Writeln ('Usuario desconcido');
Writeln ('Por favor, elija su usuario correspondiente');
readln (usuario);
until (usuario= 1) or (usuario=2) or (usuario=3) or (usuario=4);
end;
if (usuario= 1) or (usuario=2) or (usuario=3) or (usuario=4) then
begin
writeln ('Bienvenido ', usuario);
writeln ('Por favor, elija la loteria');
Writeln ('Loterias: 1=Chance, 2=Triple Zodiacal, 3=Triple Leon,4=Caracas');
readln (Loteria);
If(loteria<1) or (loteria>4) then
begin
repeat
Writeln ('Loteria desconocida');
writeln ('Por favor, elija la correcta');
readln (Loteria);
until (Loteria=1) or (loteria=2) or (loteria=3) or (loteria=4);
end;
if (loteria =1) or (loteria=4) then
begin
writeln ('Elija el Sorteo');
writeln ('Sorteos: 1= 12:00 pm, 2= 4:00 pm, 3= 7:00 pm');
readln (Sorteo);
if (Sorteo<1) or (sorteo>3) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=1) or (sorteo=2) or (sorteo=3);
end;
end
else
if (loteria=2) or (loteria=3) then
begin
writeln ('Elija el sorteo');
writeln ('Sorteos: 4= 12:00 pm, 5= 8:00 pm');
readln (Sorteo);
If (Sorteo<4) or (Sorteo >5) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=4) or (sorteo=5);
end;
end;
If (sorteo=1) or (sorteo=2) or (sorteo=3) or (sorteo=4) or (sorteo=5) then
Begin
Writeln ('Por favor indique el valor de la jugada');
Writeln ('La jugada no debe ser mayor a 100 bsf, ni menor a 1 bsf');
readln (Jugada);
if (jugada>100) or (jugada<1) then
begin
repeat
writeln ('Jugada sobre pasa el limite establecido');
writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Jugada);
until (jugada>=1) and (jugada<=100);
end;
end;
If (Jugada>=1) or (jugada<=100) then
Begin
Writeln ('Registre el triple a jugar');
Readln (Triple);
If (Triple >999) or (Triple<0) then
Begin
repeat
Writeln ('Triple sobre pasa el parametro establecido');
Writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Triple);
until (triple<=999) and (triple>=0);
end;
end;
Begin
Writeln(loteria,' ',sorteo, ' ',triple, ' ',jugada,' .');
end;
end;
readln;
End.


por favor que alguien me ayude es para mañana 29/07/2010

urgenteeeeeeee......

Hola Karlett:
Tepaso el código fuente obtenido despues de lagunas rectificaciones y otros agregados.

program loteriakeyoro;
uses Dos, crt;
Const
DIAS:ARRAY[0..6] of string[9] = ('DOMINGO','LUNES','MARTES','MIERCOLES',
'JUEVES','VIERNES','SABADO');

var
usuario4,loteria,sorteo: integer;
USUARIO:STRING;
jugada,triple: integer;
H,Mi,S,C,A,M,D,DDs : Word;{Hora,minutos,segundos,centesimas,año,mes dia,
dia de la semana}

begin
clrscr;
writeln ('Hola, bienvenido a la loteria KEYORO');
repeat
writeln ('Por favor coloque su usuario');
readln (usuario4);
case usuario4 of
1:USUARIO:='usuario1';
2:USUARIO:='usuario2' ;
3:USUARIO:='usuario3';
4:USUARIO:='usuario4'
end;
if (usuario4<1) or (usuario4>4) then
WRITELN ('Usuario desconocido')
until (usuario4>=1) and (usuario4<=4);
writeln ('Por favor, elija la loteria');
Writeln ('Loterias: 1=Chance, 2=Triple Zodiacal, 3=Triple Leon,4=Caracas');
readln (Loteria);
If(loteria<1) or (loteria>4) then
begin
repeat
Writeln ('Loteria desconocida');
writeln ('Por favor, elija la correcta');
readln (Loteria);
until (Loteria=1) or (loteria=2) or (loteria=3) or (loteria=4);
end;
if (loteria =1) or (loteria=4) then
begin
writeln ('Elija el Sorteo');
writeln ('Sorteos: 1= 12:00 pm, 2= 4:00 pm, 3= 7:00 pm');
readln (Sorteo);
if (Sorteo<1) or (sorteo>3) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=1) or (sorteo=2) or (sorteo=3);
end;
end
else
if (loteria=2) or (loteria=3) then
begin
writeln ('Elija el sorteo');
writeln ('Sorteos: 4= 12:00 pm, 5= 8:00 pm');
readln (Sorteo);
If (Sorteo<4) or (Sorteo >5) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=4) or (sorteo=5);
end;
end;
If (sorteo=1) or (sorteo=2) or (sorteo=3) or (sorteo=4) or (sorteo=5) then
Begin
Writeln ('Por favor indique el valor de la jugada');
Writeln ('La jugada no debe ser mayor a 100 bsf, ni menor a 1 bsf');
readln (Jugada);
if (jugada>100) or (jugada<1) then
begin
repeat
writeln ('Jugada sobre pasa el limite establecido');
writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Jugada);
until (jugada>=1) and (jugada<=100);
end;
end;
If (Jugada>=1) or (jugada<=100) then
Begin
Writeln ('Registre el triple a jugar');
Readln (Triple);
If (Triple >999) or (Triple<0) then
Begin
repeat
Writeln ('Triple sobre pasa el parametro establecido');
Writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Triple);
until (triple<=999) and (triple>=0);
end;
end;
clrscr;
gotoxy(2,10);
write('F A C T U R A');
gotoxy(2,11);
write('-------------');
gettime(h,m,s,c);
gotoxy(2,12);
write(H,':',Mi,':',S);
GetDate(A,M,D,DDs);
gotoxy(2,13);
write(Dias[DDs],', ',D:3,'-',M:0,'-',A:0);
gotoxy(2,14);
gotoxy(2,15);
write('Le atiende el Usuario ',Usuario4);
gotoxy(2,16);
write('Tipo loteria ',loteria);
gotoxy(2,17);
write('Sorteo ',sorteo);
gotoxy(2,18);
write('Triple ',triple);
gotoxy(2,19);
write('Jugada ',jugada)

end.

Un saludo y espero te resuelva el problema.