Проблема с crt, Паскаль

[Alexey123]

Проблема с crt, Паскаль

Я нуб.
Не кидайте в меня яйцами за глупый вопрос,
я исправлюсь:feel:
Вопрос такой:

program lock;
uses crt;
const
pin = 4586;
var a: integer;
begin
readln(a);
if a = pin then
begin
TextColor(green);
writeln('Access accept');
end
else
textcolor(red);
writeln('Access denied');
end.

А выдает вот это:

 

[Alexey123]

Надпись 'Access denied' должна выдаваться красным цветом

 

[Alexey123]

И при правильном наборе пин-кода не должна высвечиваться

 

[prima]

А где операторные скобки после ELSE?

 

[Alexey123]

Спасибо, разобрался!:tehnari_ru_203: