Подсчитать количество гласных букв в тексте

program lab83;
const
  gl='EYUIOAeyuioaУЕЫАОЭЯИЮЁуеыаоэяиюё';
var
  s:string;
  i,n,k:integer;
  w:char;
procedure deleteword(a:string;var s:string);
var
  c:byte;
begin
  s:=' '+s+' '; 
  a:=' '+a;  
  c:=pos(a,s)+1;
  if c>1 then
    begin
      while s[c]<>' ' do delete(s,c,1);
      delete(s,c,1);
    end;
  if s[1]=' ' then delete(s,1,1);    
end;   
begin
  write('Введите строку текста:');readln(s);
  for i:=1 to length(s) do
    if pos(s[i],gl)<>0 then inc(n);
  writeln('В строке ',n,' гласных.');      
  for i:=1 to length(s)-1 do
    if s[i]=' ' then 
      if (s[i+1]='у')or(s[i+1]='У') then inc(k);
  if k=0 then write('В тексте нет слов на букву "у".')  
  else 
    repeat
      write('В тексте есть слова на букву "у". Хотите ли их удалить?(Y/N):');readln(w);
      w:=upcase(w);     
    until (w='Y')or(w='N');
  if w='Y' then
  repeat  
    deleteword('у',s);
    deleteword('У',s);
  until (pos('у',s)=0)and(pos('У',s)=0);
  write('Исправленная строка:',s);               
end.

const
    Glas: Set Of Char = ['E', 'Y', 'U', 'I', 'O', 'A', 'e', 'y', 'u', 'i', 'o', 'a', 'У', 'Е', 'Ы', 'А', 'О', 'Э', 'Я', 'И', 'Ю', 'Ё', 'у', 'е', 'ы', 'а', 'о', 'э', 'я', 'и', 'ю', 'ё'];
    Answer: Array[Boolean] Of String = ('No', 'Yes');
    
function ClipWord(var s: String): String;
var
    Result: String;
begin
    Result := '';
    while (s[1] <> ' ') do
    begin
        Result := Result + s[1];
        Delete(s, 1, 1);
    end;
    Delete(s, 1, 1); //удаляем пробел
    ClipWord := Result;
end;
 
function CountGlas(const s: String): Byte;
var
    Result, i: Byte;
begin
    Result := 0;
    for i := 1 to Length(s) do
        if (s[i] in Glas)
        then
            Inc(Result);
    CountGlas := Result;
end;
 
procedure WordsWithY(var s: String);
var
    Result: Boolean;
    tempS, temp: String;
begin
    tempS := s; Result := False;
    while (Length(tempS) > 0) do
    begin
        temp := ClipWord(tempS);
        if (temp[1] in ['У', 'у'])
        then
        begin
            Delete(s, Pos(temp, s), Length(temp) + 1);
            Result := True;
        end;
    end;
    WriteLn('Answer: ', Answer[Result]);
    if (Result)
    then
        WriteLn(s);
end;
 
var
    s: String;
begin
    Write('Input string: '); ReadLn(s);
    s := s + ' ';
    WriteLn(CountGlas(s));
    WordsWithY(s);
end.