Дан текст, состоящий из строчных латинских букв и знаков препинания. - Free Pascal

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

Дан текст, состоящий из строчных латинских букв и знаков препинания. Определить, какие гласные буквы (a,e,i,o,u) встретились в этом тексте более одного раза.

Решение задачи: «Дан текст, состоящий из строчных латинских букв и знаков препинания.»

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

const
  ch:array[1..5]of char = ('a','e','i','o','u');
var
  s: string;
  i,j:integer;
  n:array[1..5] of word;
begin
  write('s = ');
  readln(s);
  for i:=1 to 5 do n[i]:=0;
  for i:=1 to length(s) do
    for j:=1 to 5 do
      if s[i]=ch[j] then begin inc(n[j]); break; end;

  for i:=1 to 5 do
    writeln(ch[i],': ',n[i]);

    writeln;
      for i:=1 to 5 do
        if n[i]>1 then write(ch[i],' ');
  readln;
end.

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

В этом коде:

Объявляются и инициализируются массивы: массив символов ch с пятью элементами и массив n для подсчёта количества каждого символа.
Пользователю предлагается ввести строку s.
В цикле подсчитывается количество каждого символа в строке s и записывается в соответствующий элемент массива n.
В цикле выводятся на экран количество каждого символа из массива n.
Если количество символа в строке больше одного, то этот символ выводится на экран.
Программа ожидает ввода от пользователя и завершается.