(Pascal)Составить подпрограмму . которая подсчитывает количество гласных букв находящихся между первым и вторым двоеточием.

[Dragonnnnn]

Составить подпрограмму . которая подсчитывает количество гласных букв находящихся между первым и вторым двоеточием. Если второго двоеточия нет, то подсчитать количество гласных букв от первого двоеточия до конца строки. В основной программе обработать с помощью подпрограммы две строки

[Вадим Мошев]

Сами что-то пытались сделать? Есть наработки в виде кода?

[newerow1989]

function sss(s:string):integer;
const gl:set of char=['a','e','i','o','u','y'];
var i,i0:integer;
begin
   Result:=0;
   i0:=Pos(':',s);
   If i0=0 then
      Exit;
   For i:=i0+1 to Length(s) do
      If s[i]=':' then
         Exit else
      If s[i] in gl then
         Inc(Result);
end;

var s1,s2:string;
begin
   Write('s1 = '); Readln(s1);
   Write('s2 = '); Readln(s2);
   Writeln(sss(s1));
   Writeln(sss(s2));
   Readln;
end.