Пожалуйста исправите ошибку в программе
program zagadki2;

var a, b, c, d:string; 
begin 
CLS; 
writeln('Привет, я программа, загаывающая загадки');  
writeln('Будешь отгадывать ?'); 
readln(a); 
if a: = ('да') then writeln('Зимой и летом одним цветом.') 
else 
begin 
writeln('пока');  
Readln(a);
end; 
if b: = ('ёлка') then writeln('правильно!') 
else 
begin 
writeln('нет,попробуй ещё раз'); 
Readln(b); 
if b: = ('ёлка') then writeln('правильно!!!') 
end; 
writeln('Сидит красавица в темнице, а коса на улице.'); 
Readln(c); 
if c: = ('морковь') then writeln('правильно!') 
else 
begin 
writeln('попробуй ещё раз'); 
Readln(c); 
if c: = ('морковь') then writeln('правильно') 
end; 
writeln('Не лает, не кусает, да в дом не пускает.'); 
Readln(d); 
if c = ('замок') then writeln('правильно')
else 
begin 
writeln('попробуй ещё раз'); 
Readln(d); 
if c: = ('замок') then writeln('правильно'); 
end;  
end.

program zagadki2;var a, b, c, d:string;label r;beginwriteln('Привет, я программа, загаывающая загадки');writeln('Будешь отгадывать ?');readln(a);if a = 'да' then writeln('Зимой и летом одним цветом.')elsebeginwriteln('пока');goto r;end;Readln(b);if b = 'ёлка' then writeln('правильно!')elsebeginwriteln('нет,попробуй ещё раз');Readln(b);if b = 'ёлка' then writeln('правильно!!!')end;writeln('Сидит красавица в темнице, а коса на улице.');Readln(c);if c = 'морковь' then writeln('правильно!')elsebeginwriteln('попробуй ещё раз');Readln(c);if c = 'морковь' then writeln('правильно')end;writeln('Не лает, не кусает, да в дом не пускает.');Readln(d);if d = 'замок' then writeln('правильно')elsebeginwriteln('попробуй ещё раз');Readln(d);if d = 'замок' then writeln('правильно');end;r:end.