Нужно дописать программу!

[whatever]

После new(Dinam); пишешь count:=0;

Потом, когда пишешь в текстовик:

Write(F, Dinam^+' ');//пробел на свое усмотрение
inc(count)
if count=3 then //в строке будет не более трех слов
  begin
    count:=0;
    writeln(f);
  end

Пременная count в моем примере объявлена, но не исполюзуется, так что смело вставляй.

[Маx]

Например вводим:

Снова будем
мы с народом
дружно кушать бутерброды..
Вовсе мы и не уроды.
Просто любим бутерброды.

Вводим слово до которого щитать: народом
ПРограма ответит: 16

Пробовал тоже самое в придыдущем примере, но оно не правильно щитает..

[Маx]

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

[Rin]

Снова будем
мы с народом
дружно кушать бутерброды..
Вовсе мы и не уроды.
Просто любим бутерброды.

Вводим слово до которого щитать: народом
ПРограма ответит: 16

Ну а сколько там символов?

123456789 10 11
Снова_буд..е....м
12 13 14 15 16
.м..ы..._..с..._....народом.
Программа правильно работает!
Макс, русский нужно знать! щитать, позицыю,придыдущем, программы.

[Маx]

Rin, извини, но я с Украины, поэтому знать мне его не обязательно!
и это я показал пример того, как она должна считать, а не то, как она считает.