Дана непустая последовательность слов из строчных букв, в конце точка

const gl=['а','е','ё','и','о','у','ы','э','ю','я'];
var s,s1,sp,ss:string;
    m:set of char;
    i,j,i1,ip,k1,kp:integer;
begin
writeln('Введите строку слов из строчных русских букв, разделенных пробелами, в конце точка');
readln(s);
//первое слово
i:=1;
k1:=0;
while s[i]=' ' do inc(i);//пропустим ведущие пробелы
i1:=i;//начало первого слова
while s[i]<>' ' do//составим слово до первого пробела
 begin
  s1:=s1+s[i];
  if s[i] in gl then inc(k1);
  inc(i);
 end;
writeln('Количество гласных букв в первом слове=',k1);
//последнее слово
i:=length(s)-1;//встанем перед точкой
sp:='';
kp:=0;
while s[i]<>' ' do
 begin
  sp:=s[i]+sp;
  if s[i] in gl then inc(kp);
  dec(i);
 end;
ip:=i+1;//начало последнего слова
writeln('Количество гласных букв в последнем слове=',kp);
m:=[];
ss:=s1+sp;//объединим слова
for i:=1 to length(ss) do//запишем гласные буквы из слов в множество
if ss[i] in gl then include(m,ss[i]);
if m=[] then writeln('В первом и последнем слове нет гласных букв')
else
 begin
  writeln('Гласные буквы из первого и последнего слов в строке в порядке появления');
  for i:=1 to length(s) do
  if s[i] in m then write(s[i],' ');
  writeln;
  if k1>kp then
   begin
    writeln('В первом слове гласных букв больше чем в последнем');
    writeln('Обмен первого и последнего слов');
    delete(s,ip,length(sp));//удалим последнее
    insert(s1,s,ip);//вставим первое
    delete(s,i1,length(s1));//удалим первое
    insert(sp,s,i1);//вставим последнее
    writeln(s);
   end
  else writeln('В первом слове гласных букв не больше чем в последнем')
 end;
end.