Programación Turbo Pascal - Abrir un video

[albatros_87]

Hola a tod@s:

Hace 2 días que llevo con este programa y con ayuda de un amigo he podido crear un programa que me permite introducir un codigo y SI no es correcto pues me vuelve a preguntar y si es correcto pues finaliza el programa.

Quisiera añadir, cuando introduces el codigo correcto, que se abra automáticamente un archivo de video.

Se los agradecería enormemente, es para una sopresa a un amigo que estoy haciendole un juego....

Este es mi programa:

PROGRAM RUBEN;
VAR
PASS, PASS1: STRING;
BEGIN
PASS:='VISTAFLOR';
WHILE PASS<>PASS1 DO
BEGIN
WRITE ('ESCRIBE EL CODIGO: ');
READLN (PASS1);
IF PASS<>PASS1 THEN
BEGIN
WRITELN ('ERROR INTRODUCE CODIGO');
END;
END;
IF PASS=PASS1 THEN
BEGIN
WRITELN ('LA CONTRASEÑA ES CORRECTA');
END;
END.



Muchas gracias.