Найти слово в заданном предложении

type astr=array[0..128] of string;
procedure split(delimeter:string;s:string;var sr:astr;var l:integer);
var
  i:integer;
  t:string;
procedure additem;
begin
  if t<>'' then begin
    inc(l);
    sr[l-1]:=t;
    t:='';
  end;
end;
begin
  l:=0;t:='';
  for i:=1 to length(s) do
  if pos(s[i],delimeter)=0 then t:=t+s[i] else additem;
  additem;
end;
function CountGl(s:string):integer;
var
  i,j:integer;
begin
  j:=0;
  for i:=1 to length(s) do if s[i] in ['А','Е','И','О'] then j:=j+1;
  CountGl:=j;
end;
var
  i,j,n:integer;
  s:string;
  b:astr;
begin
  write('CTPOKA:');
  readln(s);
  split('!?-.,:; ',s,b,n);
  j:=CountGl(b[0]);
  for i:=1 to n-1 do if j<CountGl(b[i]) then j:=CountGl(b[i]);
  if j=0 then writeln('Нет слов, содержащих буквы "А","Е","И","О"') else begin
    writeln('Слова с наибольшим содержанием букв "А","Е","И","О"');
    for i:=0 to n-1 do if CountGl(b[i])=j then writeln(b[i]);
  end;
end.