Построить блок схему по номер 14

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 

Впредыдущем вопросе я написала решение. program z; var a,b,c,d,e,x,g,h: integer; begin write('введите пятизначное число'); read(x); a: = x mod 10; b: = x mod 100; b: = b div 10; c: = x mod 1000; c: = c div 100; d: = x mod 10000; d: = d div 1000; e: = x mod 100000; e: = e div 10000; if a mod 2=0 then h: =a else g: =a; if b mod 2=0 then h: =h+b else g: =g+b; if c mod 2=0 then h: =h+c else g: =g+c; if d mod 2=0 then h: =h+d else g: =g+d; if e mod 2=0 then h: =h+e else g: =g+e; writeln(' сумма нечётных цифр равна ', g); write(' сумма чётных цифр равна ', h); end.