Необходимо исправить программу

Pavel__5

Программа с новой строки задает вопрос и ждет ответа в виде символа в той же строке, где находится вопрос. 1) В случае ввода символов Д, д, Y, y программа должна выводить с новой строки сообщение: Вы ответили 'Да'. 2) В случае ввода символов Н, н, N, n программа должна выводить с новой строки сообщение: Вы ответили 'Нет'. 3) В случае ввода символов, отличных от перечисленных в п.п.1 и 2, программа должна выводить с новой строки сообщение:
Program TEST1;
USES
  CRT;
const
  text : string='';  { Перевод ответа для вывода его на экран }
  reply: char='';    { Введенный ответ пользователя           }
 
BEGIN
 ClrScr;
  repeat
  { Ввод ответа       }
   Writeln;
   Writeln(' Ответьте Д/д/Y/y для ''Да'' или Н/н/N/n для ''Нет'': ');
   Read(reply);
  { Трансляция ответа }
   Case reply of
    'Д':;
    'д':;
    'Y':;
    'y':
       text:='''Да''';
    'Н':;
    'н':;
    'N':;
    'n':
       text:='''Нет''';
     else
      if ord(reply)<32
        then
          text:='пустым символом'
        else
          text:='''+reply+'''+' , но это недопустимый символ';
   End;
   writeln(' Вы ответили  ',text);
   reply:=readkey;
  until Ord(reply)=27;
End.
1 ответ

Pavel__5

'Д', 'д', 'Y', 'y': text:='''Да''';