PROGRAM Kolobok;
USES CRT;
VAR
Zver:CHAR;
BEGIN
WRITELN('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
WRITELN('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
WRITELN('Kolobok katitsya, a navstrechu yemu zver');
WRITELN('Vvod zverya');
READLN(Zver);
IF lisa
THEN
WRITELN('Kolobok poyot pesenku dva raza');
WRITELN('Proshchay, Kolobok ...');
ELSE
WRITELN('Kolobok poyot pesenku');
WRITELN('Katitsya dalshe');
END.
не работает программа

program Kolobok;var zver:string; begin    writeln('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');    writeln('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');    writeln('Kolobok katitsya, a navstrechu yemu zver');    writeln('Vvod zverya');    readln(zver);        if Zver = 'lisa' then        begin            writeln('Kolobok poyot pesenku dva raza');            writeln('Proshchay, Kolobok ...');        end    else        begin            writeln('Kolobok poyot pesenku');            writeln('Katitsya dalshe');        end;end.