Problem z prostym programikiem

yagamiraito

czesc:) to moj 1szy temat na tym forum.pisze bo chcialbym dowiedziec sie co w tym "programie" jest nie tak.moze mi ktos podpowiedziec? kompiluje sie ale gdy wpisze n wylacza sie nie reagujac na procedure.

program problem;
USES CRT;

VAR
a:char;

PROCEDURE tekst1;
BEGIN
writeln('Nie wyszedłeś z programu');
writeln('Ale i tak program zaraz się wyłączy');
delay(3000);
halt;
END;

BEGIN
clrscr;
writeln('Czy chcesz wyjść z programu [T/N]');
read(a);
IF a='T' THEN halt;
IF a='N' THEN tekst1;
END. Crying or Very sad

yagamiraito

juz wiem o co chodzi i okazalo sie ze jestem slepym idiota ;D do zamkniecia