Создать программу в PascalABC (строки) - Pascal ABC

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

Программа должна выполнять следующие действия: После запуска программы пользователя просят написать любой текст (текст на латинском языке, строчными буквами) заканчивающийся точкой. Когда пользователь напечатал текст программа должна: напечатать все гласные буквы входящие в текст и вывести их количество. Программу надо составить без использования Byte.

Решение задачи: «Создать программу в PascalABC (строки)»

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

                            var  a2,a:string;
      i,k:integer;      
begin
write('Введите строку на латинском языке');
readln(a);
a:=' '+a;
k:=0;
for i:=1 to length (a) do              
  if a[i]<>' ' then begin                     
    if a[i] in ['a','e','u','i','o'] then begin
      inc(k);
      a2:=a2+a[i]
     end;
  end;
write(a2,k);          
end.
                        