Программа на определение букв алфавита - Turbo Pascal

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

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

uses Crt;
Var bukva: Char;
begin
ClrScr;
    Write(' Ввести строчную букву: ');
        ReadLn(bukva);
case c of
    'а', 'е', 'и','o' :  WriteLn(' Гласная');
    'б', 'з', 'в','г' :  WriteLn(' Согласная звонкая');
    'п', 'c, 'ф','к' : WriteLn(' Согласная глухая');
     'й', 'л', 'м','н' :  WriteLn(' Другая');
else                  WriteLn(' Таких букв не знаю');
    end;
  ReadLn
end.

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

Вводятся гласные буквы:        Вводятся согласные звонкие:
Ввести строчную букву:  а             Ввести строчную букву:  б
Гласная                                             Гласная  
 
Ввести строчную букву:  е е е         Ввести строчную букву:  з з з
Таких букв не знаю                           Согласная звонкая
 
Ввести строчную букву  и                Ввести строчную букву:  в в в
Гласная                                               Согласная звонкая 
 
Ввести строчную букву:  о о о          Ввести строчную букву:  г
Таких букв не знаю                             Согласная звонкая
 
Вводятся согласные глухие:       Вводятся другие буквы:
Ввести строчную букву:  п                 Ввести строчную букву:  й й й             
Согласная глухая                                  Другая
 
Ввести строчную букву:  с                   Ввести строчную букву:  л л л
Таких букв не знаю                                Другая
 
Ввести строчную букву:  ф ф ф             Ввести строчную букву:
Согласная глухая                                     Другая
Ввести строчную букву:  к к к                Ввести строчную букву:  н н н
Согласная глухая                                      Другая

 Вводятся неизвестные буквы:
Ввести строчную букву:  ь ь ь
Таких букв нет

Ну и что это? Выполняются с первого ввода нажатия на Enter только для первых букв – Гласных, Согласных звонких и Согласных глухих. А при вводе других букв надо на Enter нажимать три раза и выходят сразу три буквы. А для некоторых других строк и того лучше – выходят сразу три буквы (после 3-х нажатий Enter) да ещё и не с теми текстами, которые должны быть. Это как так. Автор, который составил эту программу, не проверял на все случаи? Кстати, в вашем ответе на эту тему: вы тоже не проверили её. У вас там был введён втoрой case c of для двух строк (заглавных и строчных). Но при вводе букв из этих строк выходила ненужная строка "Таких букв не знаю". Этот дефект исправил. Просто удалил этот case вместе сo вторым else. Но всё упёрлось в первую часть проблемы. Могли бы разобраться, почему такой разнобой при вводе букв?

Решение задачи: «Программа на определение букв алфавита»

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

uses Crt;
 
var
  bukva: Char;
 
begin
  ClrScr;
  Write(' Ввести строчную букву: ');
  ReadLn(bukva);
  case bukva of
    'а', 'е', 'и', 'o': WriteLn(' Гласная');
    'б', 'з', 'в', 'г': WriteLn(' Согласная звонкая');
    'п', 'c', 'ф', 'к': WriteLn(' Согласная глухая');
    'й', 'л', 'м', 'н': WriteLn(' Другая')
  else                  
    WriteLn(' Таких букв не знаю');
  end;
  ReadLn
end.

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

uses Crt; - подключение модуля Crt для работы с консолью
var - объявление переменной типа Char с именем bukva
bukva: Char; - определение переменной bukva для хранения введенной буквы
ClrScr; - очистка экрана
Write(' Ввести строчную букву: '); - вывод запроса на ввод буквы
ReadLn(bukva); - считывание введенной буквы и сохранение ее в переменной bukva
case bukva of - начало условного оператора case для определения типа введенной буквы
'а', 'е', 'и', 'о': WriteLn(' Гласная'); - если введена одна из указанных гласных букв, то выводится сообщение Гласная
'б', 'з', 'в', 'г': WriteLn(' Согласная звонкая'); - если введена одна из указанных согласных звонких букв, то выводится сообщение Согласная звонкая
'п', 'c', 'ф', 'к': WriteLn(' Согласная глухая'); - если введена одна из указанных согласных глухих букв, то выводится сообщение Согласная глухая
'й', 'л', 'м', 'н': WriteLn(' Другая'); - если введена одна из указанных букв й, л, м, н, то выводится сообщение Другая
WriteLn(' Таких букв не знаю'); - если введена буква, которая не соответствует ни одному из указанных вариантов, то выводится сообщение Таких букв не знаю
ReadLn; - считывание символа конца строки для завершения работы программы
end. - конец программы