Pascal/Turbo Pascal - Pido ayuda para algo muy basico

Hola de antemano aclaro que no soy programadora solo intento crear un programa sencillo que al introducir una clave me de acceso a una informacion y al introducir CUALQUIER otro numero me responda con una alerta, el detalle es que se hacer la primera parte pero no se cual es el lenguaje o variable que necesito usar para que con CUALQUIER combinacion errada de numeros que introduzca me de la alerta, solo se hacerlo con una combinacion determinada :( les agradezco me ayuden intento usar turbopascal porq me dijeron q era el mas sencillo es un regalo de cumpleaños para mañana 25-9-04 :( gracias de antemano ...

Pues parece que he llegado tarde..., en fin, aquí va:
uses crt;
var
Clave: string;
begin
clrscr; { borra la pantalla }
repeat { repetir }
Write('Introduzca la clave');
ReadLn(Clave); { pide la clave }
if Clave <> '123456' then { si la clave es distinta }
begin
Sound(1000); { sonar frecuencia de 1000 }
Delay(50); { por medio segundo }
end;
until Clave = '123456'; { hasta que la clave sea correcta }
end. { fin }

Gracias por la ayuda, ese era el metodo que buscaba en realidad, el de random no funciono como esperaba, y aun debo el regalo de cumpleaños jejeje

Mmm en la ultima linea que dice que siga asi hasta que sea la clave correcta deberia llevarme entonces al mensaje correcto cierto? pero cuando pongo end no lo hace.. quizas sea tonta la pregunta pero no me da :$

Ehhh..., lo lamento pero no entiendo tu pregunta :(
Una duda: ¿sabes compilar un programa en Turbo Pascal?