Работа со строками (Pascal)

[RoMaNyIL]

программа должна создать текстовый файл записать в него набранный текст
подсчитать количество слов и среднюю длинну слова в этом тексте после этого записать результат в этот же текстовый файл, сохранить и закрыть.
Заранее благодарю за помощь.

[Stilet]

Наработки есть? или тебе с нуля хочется чтоб за тебя сделали?

[RoMaNyIL]

вот все что смог сделать я

program A;
var f:text; s:real; n,b,i:integer; d:string;
begin
assign(f,'1.pas.txt');
reset(f);
while not (eof(f)) do
begin
readln(f,d);
n:=length(d);
writeln('в тексте ',n,' символов');
s:=0;
for i:=1 to n do
begin
b:=1;
if (d=' ')
then b:=b+1;
end;
writeln('в тексте ',b,' слов');
s:=n/b;
writeln('средняя длина слова в тексте= ',s);
end;
close (f);
end.



в правильности не уверен. Основная проблема в том что неудается открыть или найти этот файл который должен быть создан заранее