Программа определяет количество гласных букв - Turbo Pascal

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

Помогите кодо,пожалуйста. Я новичок Создать программу для определения количества гласных среди 5-и введенных пользователем символов. Определение количества должно выполняться в подпрограмме (или подпрограммах )

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

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

uses Crt;
const n=5;
var   sim       : char;
      i, count  : byte;
Function amount(simvol:char) : integer;
         var lot : set of char;
             j   : byte;
         begin
              j:= 0;
              lot:= ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'ю', 'я'];
              if (simvol in lot) then Inc(j);
              amount:= j;
         end;
 
BEGIN
     ClrScr;
     count:=0;
     Writeln('Введите ', n, ' символов.');
     for i:=1 to n do
     begin
          Write('Введите ', i, ' символ: ');
          Readln(sim);
          count:= count + amount(sim);
     end;
     if count <> 0 then Writeln('Количество гласных = ', count)
     else Writeln('Нет гласных.');
END.

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

В начале кода подключается библиотека Crt, которая содержит функции для работы с памятью и потоками в Turbo Pascal.
Затем определяется константа n, которая равна 5.
Далее объявляются переменные sim и i типа char и переменная count типа byte. Переменная j также типа byte и будет использоваться в функции amount.
Определяется функция amount, которая принимает в качестве параметра символ simvol. Внутри функции создается множество (set) lot, которое содержит гласные буквы. Затем, в цикле while, проверяется, содержится ли символ simvol в множестве lot. Если да, то значение переменной j увеличивается на единицу с помощью функции Inc. После этого, значение переменной amount устанавливается равным значению переменной j.
В основной части программы сначала сбрасывается экран с помощью функции ClrScr. Затем, переменная count инициализируется значением 0. Выводится сообщение Введите, n, символов..
Запускается цикл for, который выполняется n раз. На каждой итерации пользователю предлагается ввести n-1 символов, начиная с 1. Введенный символ sim сохраняется в переменной.
Внутри цикла вызывается функция amount, которая принимает символ sim и возвращает количество гласных букв в нем. Полученное количество добавляется к переменной count.
По завершении цикла выводится сообщение Количество гласных =, count, если count не равно 0, иначе выводится сообщение Нет гласных..
Программа завершается.