Зациклить выполнение программы при выборе определенного ответа пользователем - Turbo Pascal

Формулировка задачи:

Подскажите, как сделать так, что после выполнения определенных действий программы будет запрашивать что-то типо "Хотите продолжить? Если да нажмите 1, если нет-2" и дальше программа будет выполнять данное условие?

Решение задачи: «Зациклить выполнение программы при выборе определенного ответа пользователем»

Листинг программы

repeat
write('Хотите продолжить - 1,  нет - 2');
readln(w);
until w in [1,2];
if w=1 then продолжаем
else exit;

Объяснение кода листинга программы

В цикле repeat-until выполняется чтение строки с помощью функции readln(w).
Строка Хотите продолжить - 1, нет - 2 выводится на экран с помощью функции write.
Затем происходит чтение введенной пользователем строки с помощью функции readln(w).
Если введенная строка совпадает со значением переменной w (1 или 2), то цикл продолжается.
Если введенная строка не совпадает со значением переменной w, то цикл завершается и программа заканчивает работу.
В начале каждой итерации цикла переменная w инициализируется значением 1 или 2 в зависимости от выбора пользователя.
Если пользователь выбирает 1, то программа продолжает работу.
Если пользователь выбирает 2, то программа завершается.