задача "файлы" помогите решить, задали задачку уже 8 часов голову ломаю(((( Опции

[Vigame]

вот задача

Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл.

помогите пожалуйста нечего не получается смог смастерить программу для подсчета слов в фаиле и больше нечего паскаль идет всего неделю и нужно срочно сдать задачу

Заранее спасибо

[Айра]

Ну по сути большую часть ты сделал)) только интересно, по какому алгоритму)

А так, есть такие мысли:
описываем массив из 20 элементов, номер элемента соответствует количеству букв в слове, заполняем его сначала нулями.. Затем просматриваем файл, считываем символы и загоняем их в строку s:=s+ch, пока очередной не будет пробелом (или какие там еще могут быть символы разделители), собрали слово, посчитали его длину через length(s), и увеличили значение соответствующего элемента массива.. Очистили строку s:='', и пошли выделять слова дальше..
Как-то так)

[Lapp]

... и загоняем их в строку
... Очистили строку ...

Зачем вообще тут строка? Сохранять символы - лишняя работа, и место лишнее нужно

Скорее, как-то так:

const
  Letters=['A'..'Z','a'..'z'];

var
  f: file of char;
  a: array[1..20]of integer;
  i: integer;
  c: char;

begin
  Assign(f,'text1.txt');
  ReSet(f);
  i:=0;
  while not EoF(f) do begin
    Read(f,c);
    if c in Letters then Inc(i) else if i>0 then begin
      Inc(a[i]);
      i:=0
    end
  end;
  Close(f);
  if c in Letters then Inc(a[i]);
  for i:=1 to 20 do WriteLn(i,':',a[i]:10)
end.