Задача с function - число согласных букв в тексте (строки со словами) - Turbo Pascal

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

Всем привет! Очень нужна ваша помощь. Нужно сделать программ с "

function

" в Pascal'e, который подсчитывает

число согласных букв в тексте

(строки со словами). Нужен не сложный программ, как можно проще. И как можно скорее, если можно. Буду рад за помощь. З.Ы. Не забудьте использовать

function

(обязательно)

Решение задачи: «Задача с function - число согласных букв в тексте (строки со словами)»

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

var
  c:char;
  l:integer;
begin
  writeln('Enter text (Ctrl-Z to finish):');
  while not eof do begin
    read(c);
    if upcase(c) in (['A'..'Z']-['A','E','I','O','U','Y']) then l:=l+1;
  end;
  writeln('Answer:',l);
end.

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

В начале объявляются две переменные: c и l, обе типа char.
Выводится сообщение для ввода текста.
Запускается цикл while, который будет выполняться до тех пор, пока не будет достигнут конец файла (EOF).
Внутри цикла считывается символ из ввода, используя функцию read.
Символ преобразуется в верхний регистр с помощью функции upcase.
Проверяется, принадлежит ли символ диапазону от 'A' до 'Z', исключая 'A', 'E', 'I', 'O', 'U', 'Y'. Если да, то увеличивается значение переменной l на единицу.
После завершения цикла выводится ответ: количество согласных букв в тексте.