Проблема с условным оператором в паскале

[julia-busik]

Уважаемые программисты!Помогите пожалуйста довести программу до ума,надо,чтобы была возможность не отвечать на вопросы теста,а выйти из неё.Уже и так и сяк пыталась,ничего не выходит.Буду очень благодарна за помощь.

[Stilet]

  ...
writeln('Для ответа на вопрос введите вариант правильного ответа и нажмите Enter');
    writeln('1)Цикл с предусловием?');
    writeln('1 - while');
    writeln('2 - for');
    writeln('0 - выйти');
    readln(answer);
    if answer=0 then halt;

...

Смысл ясен?

[julia-busik]

А нельзя ли как-то сделать так,чтобы после вопроса "Желаете ли вы пройти тест?" при ответе "нет" осуществлялся выход из программы?

[Stilet]

writeln('Желаете пройти тест? [y-да n-нет]');
readln(с);
  if (с='n') then
  begin
  writeln('До свидания!');

сдесь c - char;

[julia-busik]

Спасибо огромное,все работает