Строковые переменные. Удалить из текста все слова, заканчивающиеся на открытый слог

uses crt;
const g: set of char=['ё','у','е','ы','а','о','э','я','и','ю',
                      'Ё','У','Е','Ы','А','О','Э','Я','И','Ю'];
      p: set of char=[' ',',','.',';',':','-','!','?'];
var s,sl,sn: string;
    i: byte;
begin
write('s='); readln(s);
s:=s+' '; sl:=''; sn:='';
for i:=1 to length(s) do
    if not (s[i] in p) then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if not (sl[length(sl)] in g) then sn:=sn+sl+' ';
          sl:='';
          end;
writeln(sn);
end.

uses crt;
var s: string;
    i: byte;
begin
write('s='); readln(s);
for i:=length(s) downto 1 do
    if s[i]=' ' then delete(s,i,1);
writeln('s=',s);
writeln('Длина ',length(s));
end.