Работа со строками

uses crt;
const gl=['a','e','i','o','u','y','A','E','I','O','U','Y'];
var s,s1,s2:string;
    i,k,j:byte;
    d,mx:real;
begin
clrscr;
repeat
writeln('Введите предложение:');
readln(s);
if pos('  ',s)>0 then {в апострофах 2 пробела, внимательнее}
writeln('Больше одного пробела подряд! Повторите ввод.');
until (pos('  ',s)=0);{и здесь 2 пробела}
s:=s+' ';{добавим пробел в конец}
mx:=0;
while pos(' ',s)>0 do{пока есть пробелы в строке}
 begin
  s1:=copy(s,1,pos(' ',s)-1);{читаем первое слово до первого пробела}
  k:=0;
  for j:=1 to length(s1)do
  if s1[j] in gl then k:=k+1;{считаем в нем гласные}
  if k/length(s1)>mx then{если их доля болше предыдущего макс}
   begin
    mx:=k/length(s1);{это макс}
    s2:=s1;{запомним это слово}
   end;
  delete(s,1,pos(' ',s));{удалим первое слово с пробелом}
 end;
write('Наибольшая доля гласных в слове ',s2);
readln
end.