Программа распознавания звуков - Turbo Pascal

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

Ученик вводит с клавиатуры букву русского алфавита. Компьютер должен сказать, какая это буква – гласная, согласная звонкая, согласная глухая или другая какая-нибудь (можно и НЕ ЗНАЮ).

uses Crt;
Var Num: integer;
begin
  ReadLn(Num);
  case Num OF {В случае если …}
    1: WriteLn(' A – гласная заглавная ');
    2: WriteLn(' b – согласная звонкая ');
    3: WriteLn(' F – согласная глухая ');
    4: WriteLn(' X – НЕ ЗНАЮ КАКАЯ ');
   end;
    ReadLn
end.

На выходе имеем:

1
   А – гласная заглавная
2
   b – согласная звонкая
3
   F – согласная глухая
4  
   X – НЕ ЗНАЮ КАКАЯ

Не уверен, что программа верная. Вы могли бы её выправить?

Решение задачи: «Программа распознавания звуков»

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

var c: Char;
begin
  ReadLn(c);
  case c of
  'А','а' {остальные сами}:
    Write(' гласная');
  'Б','б' {остальные сами}:
     Write(' согласная звонкая');
  'П','п' {остальные сами}:
    Write(' согласная глухая');
  { остальные сами }
  else
    WriteLn('не знаю');
  end;
  case c of
  'А'..'Я','Ё': WriteLn('  заглавная');
  'а'..'п','р'..'я','ё': WriteLn(' строчная');
  end;
end.

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

Введенная переменная c типа Char, которая принимает значение, введенное пользователем
Используется оператор case для определения значения переменной c
В каждом case блоке проверяется значение переменной c и выводится соответствующее сообщение на экран
В первом case блоке проверяется значение 'А' и 'а', если значение совпадает, то выводится сообщение гласная
Во втором case блоке проверяется значение 'Б' и 'б', если значение совпадает, то выводится сообщение согласная звонкая
В третьем case блоке проверяется значение 'П' и 'п', если значение совпадает, то выводится сообщение согласная глухая
В блоке else проверяется, если значение переменной c не соответствует ни одному из предыдущих case блоков, то выводится сообщение не знаю
Во втором блоке case проверяется значение 'А'..'Я' и 'Ё', если значение совпадает, то выводится сообщение заглавная
В третьем блоке case проверяется значение 'а'..'п' и 'р'..'я' и 'ё', если значение совпадает, то выводится сообщение строчная
Код завершается оператором end.