Замена слова с максимальным количеством гласных на символ '*'

const
    glas : Set Of Char = ['A', 'a', 'E', 'e', 'I', 'i', 'O', 'o', 'U', 'u'];
    soglas : Set Of Char = ['B', 'b', 'C', 'c', 'D', 'd', 'F', 'f', 'G', 'g', 'H', 'h', 'J', 'j', 'K', 'k', 'L', 'l', 'M', 'm', 'N', 'n', 'P', 'p', 'Q', 'q', 'R', 'r', 'S', 's', 'T', 't', 'V', 'v', 'W', 'w', 'X', 'x', 'Y', 'y', 'Z', 'z'];
 
var
    f, g : File Of Char; //f - оригинальный файл, g - временный
    i, count : Byte; //счётчики
    max : Byte = 0; //максимум
    c : Char; //символ, в который будем читать
    s : String; //прочтённое слово
 
begin
    Assign(f, 'f.txt'); Reset(f);
    Assign(g, 'g.txt');
    //находим максимальное количество гласных в словах
    while Not(Eof(f)) do
    begin
        count := 0; //сброс счётчика
        repeat
            Read(f, c); //читаем символ
            if (c in glas) then //если гласная
                Inc(count);
        until (Eof(f) Or (Not(c in glas) And Not(c in soglas)));
        if (count > max) then //обновляем максимум при необходимости
            max := count;
    end;
    Seek(f, 0); ReWrite(g);
    //записываем во временный файл
    while Not(Eof(f)) do
    begin
        count := 0; s := '';
        repeat //опять читаем слово + символ после слова
            Read(f, c);
            if (c in glas) then
                Inc(count); //считаем количество гласных
            s := s + c; //и запоминаем слово
        until (Eof(f) Or (Not(c in glas) And Not(c in soglas)));
        if (count = max) then //если нужное нам
            Write(g, '*', s[Length(s)]) //заменяем за * и не забываем о символе после слова (пробел, точка, перевод строки
        else //если нет
            for i := 1 to Length(s) do //посимвольно перезаписываем слово из памяти
                Write(g, s[i]);
    end;
    Close(g); Reset(g); Close(f); ReWrite(f);
    //из временного g перезаписываем в f
    while Not(Eof(g)) do
    begin
        Read(g, c);
        Write(f, c);
    end;
    Close(f); Close(g); Erase(g); //закрываем файлы и удаляем временный  
end.