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.