Delphi.Файлы

[Atoris]

задан текстовый файл с английским текстом. заменить все слова , в которых содержится максимальное количество гласных букв, на звёздочки (*). Кол-во звёздочек такое же как и длина заменяемых слов.

консольная делфи.
Заранее благодарю.

[Косюра]

Я сделала в отдельности для каждой строки. Максимум гласных в каждой строке.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
Input = 'Input.txt';

var
F: TextFile;
D: set of char;
K, I, q,w,j,max: integer;
S: string;

begin
assign(F,Input);
Reset(F);
d:=['a','e','y','u','i','o'];
while not eof(f) do
begin
  readln(f,s);
  S:=trim(s)+' ';
  k:=0; max:=0;   q:=0;
  for i := 1 to length(s) do
    if s[i]<>' ' then k:=K+1
      else
      begin
        for j := i-k-1 to i do
          if s[j] in d then Q:=Q+1;
        if Q>max then max:=q;
        q:=0; K:=0;
      end;

    k:=0; q:=0;
  for i := 1 to length(s) do
    if s[i]<>' ' then k:=K+1
      else
      begin
        for j := i-k-1 to i do
          if s[j] in d then Q:=Q+1;
       writeLn(k, ' ', q,' ', i);
      if Q=max then
            begin
             Delete(s,i-k,K);
               for W := 1 to K do
               Insert('*',s,i-k);
            end;
      k:=0;
      q:=0;
     end;
WriteLn(s);
end;


ReadLn;
end.

[-*KoT*-]

У меня была такая же задача. Спасибо!