Дана строка, состоящая из русскиз слов. Вывести множество чётных позиций, на которых стоят гласные буквы. P.S. Решение в Pascal abc или напишите на листе, пришлите фото с решением, пожалуйста.

var s,gl: string;     i: integer;     ps: set of integer; begin   gl:='аеёийоуыэюя';    write('строка:  ');    readln(s);    ps:=[];    i:=2;    repeat      if pos(s[i],gl)>0 then ps:=ps+[i];      i:=i+2;    until i>length(s);    write('множество четных позиций с гласными:  ');    foreach i in ps do write(i,' '); end.     Результат работы:  строка:  Это строка для проверки множество четных позиций с гласными:  20 18 10 8 14