Pascal/Turbo Pascal - ayuda con codigo

necesito que me envien el codigo para armar una aplicacion que pida una contraseña y que si esta correcta, haga algo como por ejemplo escribir en pantalla (genio) y sino que al tercer intento escriba en pantalla (mal) y se cierre el programa gracias..

Mmm, creo que estas mal. Este es un foro donde estamos para ayudarnos entre todos, no es un foro donde puedes venir y pedir el código que quieras. Intenta hacer el programa y despues escribes aqui tus dudas o problemas que te vayan surgiendo. : )

Tiene toda la razón Alejandro, pero te voy a echar una mano (no te acostumbes...) :-D

Procedure GetPwd(Pwd :String);
Var
Ch :Char;
P :String;
Begin
Repeat
Write('Ingrese la Password: ');
Repeat
Ch := ReadKey;
If (Ch<>#13) then
Begin
P := P + Ch;
Write('*');
End; {If}
Until (Ch=#13);
WriteLn;
If (P<>Pwd) then Halt(1);
WriteLn('¡¡Muy bién, Genio!!'#7);
End; {GetPwd}


Saludos ;-)