Укажите на ошибки в моем коде. Язык Паскаль.

program test;

label M;
var
b: char;
s: real;
o: integer;

begin
M:
writeln('Тест "Получился бы из вас хакер "(+/-)');
readln(b);
if (b = '+') then
begin
s := 0;
writeln('Вопрос Number 1. Когда у вас возникает вопрос, что вы делаете?');
writeln('1. Прошу помощи у знакомого, который знает.');
writeln('2. Пытаюсь сам найти ответ на мой вопрос.');
writeln('3. Забрасываю это дело.');
writeln('4. Ищу сертифицированного специалиста.');
readln(o);
if (o = 2) then s := s + 1 else if (o = 4) then s := s + 0.5
else if (o > 4) then write('Вы выбрали несуществующий вариант ответа!') else s := s;
writeln('Вопрос Number 2. Допустим вы не смогли найти ответ на ваш вопрос, что вы будете делать?');
writeln('1. Забью на это дело.');
writeln('2. Попытаюсь разобраться сам эксперементальным образом.');
writeln('3. Буду думать над вопросом, не ставить эксперементов, так как они могут привести к плачевным результатам.');
writeln('4. Буду дальше пытаться найти ответ, чего бы это не стоило');
readln(o);
if (o = 4) then s := s + 1 else if (o = 2) then s := s + 0.5
else if (o > 4) then write('Вы выбрали несуществующий вариант ответа!') else s := s;
writeln('Вопрос Number 3. Любите ли вы изучать, что-то новое и неизведанное?');
writeln('1. Обожаю.');
writeln('2. Люблю.');
writeln('3. Не люблю.');
writeln('4. Ненавижу.');
readln(o);
if (o = 1) then s := s + 1 else if (o = 2) then s := s + 0.5
else if (o > 4) then write('Вы выбрали несуществующий вариант ответа!') else s := s;
writeln('Вопрос Number 4. Как вы относитесь к программированию?');
writeln('1. Положительно.');
writeln('2. Отрицательно.');
writeln('3. Равнодушно.');
writeln('4. Для меня это что-то за гранью человеческих возможностей.');
readln(o);
if (o = 1) then s := s + 1 else if (o = 2) then s := s + 0.5
else if (o > 4) then write('Вы выбрали несуществующий вариант ответа!') else s := s;
writeln('Вопрос Number 5. Как вы относитесь к *nix системам?');
writeln('1. Положительно.');
writeln('2. Отрицательно.');
writeln('3. Равнодушно.');
writeln('4. Что это?');
readln(o);
if (o = 1) then s := s + 1 else if (o = 3) then s := s + 0.5
else if (o > 4) then write('Вы выбрали несуществующий вариант ответа!') else s := s;
writeln('Вопрос Number 6. А теперь честно: пытались ли вы улучшить свои показатели во время теста?');
writeln('1. Да.');
writeln('2. Нет');
writeln('3. Немного.');
writeln('4. Чуть больше половины.');
readln(o);
if (o = 2) then s := s + 1 else if (o = 3) then s := s + 0.5
else if (o > 4) then write('Вы выбрали несуществующий вариант ответа!') else s := s;
if (s in [0, 2.5]) then write('К сожалению, из вас получиться ужасный хакер! :(')
else if (s in [3.0, 4.5]) then write('Из вас получиться средненький хакер. :( ;)')
else if (s in [5, 6.5]) then write('Из вас вполне может получиться неплохой хакер;)');
write('Желаете повторить ');
if (b = '+') then goto M
else write('Выход из программы...');
writeln('Конец программы. Спасибо за посещение!');
end
else write('Выход из программы...');
writeln('Конец программы. Спасибо за посещение!');
end.

Вывод

Тест "Получился бы из вас хакер "(+/-)
+
Вопрос Number 1. Когда у вас возникает вопрос, что вы делаете?
1. Прошу помощи у знакомого, который знает.
2. Пытаюсь сам найти ответ на мой вопрос.
3. Забрасываю это дело.
4. Ищу сертифицированного специалиста.
2
....****************************....
Желаете повторить Тест "Получился бы из вас хакер "(+/-)
(Вот! Почему нет рузультатов!???) ОБЪЯСНИТЕ ПОЖАЛУЙСТА!!!!