Цикл для входа/выхода из программы (Паскаль)

[proser93]

Здравствуйте, подскажите, пожалуйста, как осуществить, не используя меток, такую вещь: в начале программы выводится сообщение "Для продолжения нажмите y, для выхода n", если "n", то выход из программы, если "y", то выполнение программы, а после выполнения опять предоставляется выбор "y" или "n".
При этом другие входные данные должны отсеиваться, как и многократное введение "y" за один раз.
Я думаю воспользоваться модулем Crt, в нем есть функция ReadKey, но все равно возникают проблемы. Помогите, пожалуйста!
Заранее спасибо.

[JUDAS]

Вариант 1

program Project1;
var
  x: string;
begin
  writeln('Для продолжения нажмите y, для выхода n'); readln(x);
  if x='n' then exit;
  writeln('Для продолжения нажмите y, для выхода n'); readln(x);
  if x='n' then exit;
  .....
  writeln('Для продолжения нажмите y, для выхода n'); readln(x);
  if x='n' then exit;
end.

Вариант 2

program Project1;
var
  x: string;
begin
  writeln('Для продолжения нажмите y, для выхода n'); readln(x);
  if x='y' then
  begin
    writeln('Для продолжения нажмите y, для выхода n'); readln(x);
     if x='y' then 
     begin
      .....
     end;
  end;
end.

[phomm]

Какой кошмар...
Чему Вы учите... ? хотя я подозреваю что тут есть элемент троллинга..
Вот так надо бы:

repeat
  writeln('Для продолжения нажмите y, для выхода n'); 
  readln(x);
  if x='n' then
    break;
  if x<>'y' then 
    continue;
  // весь остальной код
until false

[JUDAS]

что тут есть элемент троллинга

спасибо, лучше учить троллингу, чем быдлокодингу:

until false

1. человек хочет набор различных условий, а не циклический ввод (заполнение) элементов массива
2. человек просит без меток.
3. Ваш код пишется вот так:

repeat
  writeln('Для продолжения нажмите y, для выхода n'); 
  readln(x);
until x='n';

[Serge_Bliznykov]

JUDAS, я бы тоже исходную задачу прочитал именно как ЦИКЛИЧЕСКИЙ запрос, выходить из программы или нет.
(Ваш последний вариант, имхо, именно то, что нужно автору темы.


А ещё, всё предложенные варианта решения потребуют нажатия ENTER после ввода "y" или "n"