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..