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

[Vigame]

вот задача

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

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

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

[Vigame]

вот сделал

Код

  for i:=1 to 20 do begin
   WriteLn(i,':',a[i]:10);
   Assign(g,'text2.txt');
   Append(g);
   Write(g,i, ' - ',a[i]);
   Close(g);
   end;

а как сделать чтобы в тексте выводилось с новой страки
у меня вот что получилось

Код

01 - 12 - 43 - 84 - 135 - 16 - 77 - 08 - 09 - 310 - 011 - 012 - 013 - 014 - 015 - 016 - 017 - 018 - 019 - 020 - 0

а мне надо

Код

01 - 12
02 - 43
03 - 84
04 - 135
.....

можно такое сделать???

Добавлено через 7 мин.
ура все сделал вначале ступил)))))
вот код если кому интересно

Код

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

var
  f: file of char;
  g: text;
  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]);
  Assign(g,'text2.txt');
   Append(g);
  for i:=1 to 20 do begin
   WriteLn(i,':',a[i]:10);
   Writeln(g,i, ' - ',a[i]:10);
   end;
    Close(g);
end.

Lapp спасибо тебе огромное если хочешь за помощь магу рублеф 50 кинуть на вебмани токо вечером

[Lapp]

магу рублеф 50 кинуть на вебмани токо вечером

Ну нет, браток, извиняй.. Если хочешь платить - иди в раздел На Заказ.
Но спасибо, я понимаю, что это от чистого сердца

В то же время надеюсь, что была польза не только сдаче задания, но и твоим знаниям