Programando con algoritmos

Ricardo, después de enseñarnos todos los fundamentos básicos a partir de distintos programas, nos ha encargado hacer hoy un programa que:
-En primer lugar, pidiera nombre de usuario y contraseña;
-Si el nombre de usuario era juan y la contraseña era 1234, el programa daba la bienvenida, si no, el mensaje podía ir más o menos a nuestro gusto(yo he puesto uno muy bonito de autodestrucción, que si me da tiempo intentaré hacerlo más realista con un delay).
Para hacerlo más personal, he puesto el mensaje de bienvenida en amarillo y el de autodestrucción en rojo, utlizando la función textcolor antes de utilizar writeln.