Помогите найти ошибку в программе.

program STIX;

var
a: char;
b, c: string;

begin
b := 'Береза';
c := 'Барка';
writeln('Какое произведение вас интересует? ');
read(a);
if a = b then begin
writeln(' ');
writeln('Белая береза');
writeln('Под моим окном');
writeln('Принакрылась снегом, ');
writeln('Точно серебром. ');
writeln('На пушистых ветках');
writeln('Снежною каймой');
writeln('Распустились кисти');
writeln('Белой бахромой. ');
writeln('И стоит береза');
writeln('В сонной тишине, ');
writeln('И горят снежинки');
writeln('В золотом огне. ');
writeln('А заря, лениво');
writeln('Обходя кругом, ');
writeln('Обсыпает ветки');
writeln('Новым серебром. ');
end
else begin
writeln(' ');
writeln('Барка жизни встала');
writeln('На большой мели. ');
writeln('Громкий крик рабочих');
writeln('Принакрылась снегом, ');
writeln('Слышен издали. ');
writeln('Песни и тревога');
writeln('На пустой реке. ');
writeln('Входит кто-то сильный');
writeln('В сером армяке. ');
writeln('Руль дощатый сдвинул, ');
writeln('Парус распустил');
writeln('И багор закинул, ');
writeln('Грудью надавил. ');
writeln('Тихо повернулась');
writeln('Красная корма, ');
writeln('Побежали мимо');
writeln('Пестрые дома. ');
writeln('Вот они далёко, ');
writeln('Весело плывут. ');
writeln('Только нас с тобою, ');
writeln('Верно, не возьмут! ');
end;
end.