Найти слова, в которых доля определенных букв минимальна

uses crt;
var s,s1,s2:string;
    i,k,mn:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
writeln;
s:=s+' ';{добавим для удобства пробел в конец}
while pos('  ',s)>0 do{также удалим лишние пробелы}
delete(s,pos('  ',s),1);{в апострофах по 2 пробела, 1 удаляем}
s1:=s;{запомним строку, нам она нужна будет 2 раза}
mn:=100;
while pos(' ',s1)>0 do{пока есть пробелы}
 begin
  s2:=copy(s1,1,pos(' ',s1)-1);{копируем первое слово}
  k:=0;
  for i:=1 to length(s2) do
  if s2[i] in ['a','e'] then k:=k+1;{считаем в нем данные буквы}
  if 100*k/length(s2)<mn then mn:=round(100*k/length(s2));{если их процент меньше минимального, это минимум}
  delete(s1,1,pos(' ',s1));{удаляем это слово, следующее первое}
 end;
writeln('Минимальная доля букв а,е =',mn,'%');
writeln;
writeln('Слова с минимальной долей букв:');
while pos(' ',s)>0 do {тоже самое, только ищем слова с минимальной долей}
  s2:=copy(s,1,pos(' ',s)-1);
  k:=0;
  for i:=1 to length(s2) do
  if s2[i] in ['a','e'] then k:=k+1;
  if 100*k/length(s2)=mn then write(s2,' ');
  delete(s,1,pos(' ',s));
 end;
readln
end.