[Pascal] Początki problem z kodem

Dla specjalistów Programowanie
#1

Witam, mam problem z jednym z pierwszych programów :

Program konkurs;

uses crt;

var lit: Char;

begin

clrscr;

Writeln('Witam w moim konkursie!');

Writeln('Zaczynajmy!');

Writeln('Pytanie nr 1: Co daje krowa?');

Read(lit);

If lit = 'mleko' then

writeln('Brawo! otrzymujesz punkt!')

Else

writeln ('zla odpowiedz');

writeln

end.

otóż gdy wpisuje mleko ;p i klikam enter to program się wyłącza i nie wypisuje czy dobra czy zła odp co mam zrobic zeby działał poprawnie?

Program: Free Pascal

#2 
Program konkurs;

uses crt;

var lit : string;

begin

clrscr;

Writeln('Witam w moim konkursie!');

Writeln('Zaczynajmy!');

Writeln('Pytanie nr 1: Co daje krowa?');

Read(lit);

If lit = 'mleko' then

writeln('Brawo! otrzymujesz punkt!')

Else

writeln ('zla odpowiedz');

writeln;

readkey;

end.

Sprawdź coś takiego.

#3

no tak zawsze zapominam o readkey -.- dzięki wielkie…