Дана строчка. Словом текста считается неважно какая последовательность букв российского алфавита; между

Дана строчка. Словом текста считается неважно какая последовательность букв российского алфавита; меж примыкающими словами - не менее 1-го пробела, за последним словом точка. Отыскать и сохранить в строке те слова текста, количество гласных букв в которых превышает количество согласных. Все другие слова удалить. что не так с программой?: var m1,m2:set of char; s1,s2,s3:string; gl,i,m,sogl:integer; begin m2:=[39;a39;,39;e39;,39;i39;,39;o39;,39;u39;,39;y39;,39;A39;,39;E39;,39;I39;,39;O39;,39;U39;,39;Y39;]; m1:=[39;b39;,39;c39;,39;d39;,39;f39;,39;g39;,39;h39;,39;j39;,39;k39;,39;l39;,39;m39;,39;n39;,39;p39;,39;q39;,39;r39;,39;s39;,39;t39;,39;v39;,39;w39;,39;x39;,39;z39;, 39;B39;,39;C39;,39;D39;,39;F39;,39;G39;,39;H39;,39;J39;,39;K39;,39;L39;,39;M39;,39;N39;,39;P39;,39;Q39;,39;R39;,39;S39;,39;T39;,39;V39;,39;W39;,39;X39;,39;Z39;]; read(s1); gl:=0; sogl:=0; m:=length(s1); while mamp;lt;amp;gt;0 do begin s2:=copy(s1,1,(pos(39; 39;,s1)-1)); delete(s1,1,pos(39; 39;,s1)); for i:=1 to length(s2) do begin if s2[i] in m2 then gl:=gl+1 else if s2[i] in m1 then sogl:=sogl+1; end; if glamp;gt;sogl then s3:=s3+s2+39; 39;; end; writeln(s3); end.