Исключить из файла слово с минимальным количеством слогов.

[катя@90]

Пусть в некоторый файл 'Words.txt' построчно записаны слова.
Исключить из файла слово с минимальным количеством слогов.

[knight]

Вот алгоритм
1. Читаешь файл через
f:text; assign(f, filename)
2. Загоняешь каждое слово в массив
3. Считаешь в цикле слоги и выбираешь слово с минимальным кол-вом
4. Перебираешь массив и записываешь обратно в файл, исключаяя, найденное слово (методом rewrite, чтобы очистился файл)

[Serge_Bliznykov]

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

Например, так:

{
Гласных букв 10: а, у, ы, о, э, и, я, ю, ё, е }
CONST
  RusGlas : set of Char = ['а', 'у', 'ы', 'о', 'э', 'и', 'я', 'ю', 'ё', 'е'];

var f, fOut : text;
  s : string;
  i, k, KolSlog : integer;
  MinSlog, MinNumber : integer;
begin
 Assign(f,'WORDS.txt');
 Reset(f);
 MinSlog := MaxInt;
 k:=0; {счётчик слов}
 while Not Eof(f) do begin
   Readln(f,s);
   inc(k);
   if Length(s) > 0 then begin
     KolSlog := 0;
     for i:=1 to Length(s) do
       if s[i] in RusGlas then Inc(KolSlog);
     if KolSlog < MinSlog then begin
       MinSlog := KolSlog;
       MinNumber := k;
     end;
   end;
 end;

 {создаём новый файл}
 Assign(fOut, 'WORDS_2.TXT');
 Rewrite(FOut);

 {копируем все записи, кроме одного слова...}
 Close(f);
 Reset(f); {установим позицию на начало входного файла,
             будем читать WORDS.txt повторно}
 k := 0;
 while Not Eof(f) do begin
   Readln(f,s);
   inc(k);
   if k<>MinNumber then WriteLn(fOut,s);
 end;
 Close(fOut);
 Close(f);

end.