Установка клавиш - Free Pascal

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

Циклически заполняя строки выводить на экран свои данные: фамилию и имя. Вывод осуществляется дальше, если на запрос пользователь нажимает клавишу «Y» и прекращается по нажатии клавиши «N». Установить эффекты мерцания и изменения цвета при каждом новом выводе. С помощью каких команд осуществить "Вывод осуществляется дальше, если на запрос пользователь нажимает клавишу «Y» и прекращается по нажатии клавиши «N»"?

Решение задачи: «Установка клавиш»

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

uses crt;
var s:string;
    c:char;
begin
clrscr;
repeat
writeln('Вводите Фамилию и Имя, окончание ввода n/N, продожить y/Y');
readln(s);
write('Продолжить?');
repeat
readln(c);
until upcase(c) in ['Y','N'];
until upcase(c)<>'Y';
end.

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

Установка начального значения переменной s равным пустой строке.
Установка начального значения переменной c равным пустому символу.
Очистка экрана с помощью функции clrscr.
Ввод данных с помощью цикла repeat-readln(s);.
Вывод сообщения Продолжить? с помощью функции writeln.
Ввод данных с помощью цикла repeat-readln(c);.
Проверка значения переменной c с помощью условного оператора until upcase(c) in ['Y','N'];.
Проверка значения переменной c с помощью условного оператора until upcase(c)<>'Y';.
Завершение работы программы с помощью ключевого слова end..