Пожалуйста исправите ошибку в программе program zagadki2; var a, b, c, d:string; begin ...

Question

Пожалуйста исправите ошибку в программе
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.

Answer 1

program zagadki2;

var a, b, c, d:string;
label r;
begin

writeln('Привет, я программа, загаывающая загадки');
writeln('Будешь отгадывать ?');
readln(a);
if a = 'да' then writeln('Зимой и летом одним цветом.')
else
begin
writeln('пока');
goto r;
end;
Readln(b);
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 d = 'замок' then writeln('правильно')
else
begin
writeln('попробуй ещё раз');
Readln(d);
if d = 'замок' then writeln('правильно');
end;
r:
end.