Для каждого слова заданного предложения указать долю гласных

uses crt;
const a = ['a','e','i','o','u','y'];
type masstr = array[1..20] of string;
var s,s1,sg: string;
    s2: masstr;
    i,j, nslov,k: byte;
    pret,max: real;
procedure ms(s1: string; var s2: masstr; var count: byte);
var i1, i2: byte;
i, L: byte;
begin
L:= length(s1);
i1:= 1; i2:= 0;
count:= 0;
for i:=1 to L do begin
    if (s1[i] = ' ') and (s1[i+1] <> ' ')
       then i1:= i + 1;
    if (s1[i] <> ' ') and ((s1[i + 1] = ' ') or
       (i = L)) then begin
          i2:= i; inc(count)
    end;
    if i2 <> 0 then begin
       s2[count]:= copy(s1, i1, i2-i1+1);
       i2:= 0;
    end;
end;
end;
function ReplaceStr(const S, Srch, Replace: string): string;
var
 I:Integer;
 Source, res:string;
begin
 Source:= S;
 res:= '';
 repeat
  I:=Pos(Srch, Source);
  if I > 0 then begin
   res:=res+Copy(Source,1,I-1)+Replace;
   Source:=Copy(Source,I+Length(Srch),MaxInt);
  end else res:=res+Source;
 until I<=0;
 ReplaceStr := res;
end;
begin clrscr;
write('Vvedite stroky: ');
readln(s);
s:=ReplaceStr(s, '...', '.');
writeln('ispravlennaya stroka: ',s);
ms(s, s2, nslov);
max:=0;
for i:= 1 to nslov do begin
s1:=s2[i];
for j:=1 to length(s1) do
if s1[j] in a then inc(k);
pret:=round((k/length(s1))*100);
writeln(i,'. ',s1,' [',pret,'%]');
k:=0;
end;
readkey
end.