Подсчитать в строке текста все гласные,которые входят в каждое слово текста — Pascal(Паскаль)

Program GLAAAS;
var s : string;
    a : array [1..10] of string;
    i, n, l : integer;
Begin
     write ('Введите строку: ');
     readln (s);
     a[1]:='а';
     a[2]:='е';
     a[3]:='ё';
     a[4]:='и';
     a[5]:='о';
     a[6]:='у';
     a[7]:='ы';
     a[8]:='э';
     a[9]:='ю';
     a[10]:='я';
     for i:=1 to 10 do
         Begin
         n:=0;
         write (a[i], ' - ');
         for l:=1 to Length (s) do
             if s[l]=a[i] then n:=n+1;
         writeln (n)
         End
End.