Задача на файл в Паскале

[tatu_cat_69]

создать на диске текстовый файл, содержащий строки. полное имя файла и текст вводятся с клавиатуры.
-реализовать функцию, возвращающую количество символов в файле и с помощью ее найти количество символов в нашем файле.
-отредактировать созданный файл, заменив везде указанное слово(символ) на заданное. вывести файл на экран.


помогите. я вот начал...
но выводит 0

program sentences;
uses crt;
var
  f : text;
  c : char;
  w,s : string;
  i,n,m:integer;
procedure vv (var f:text;var s:string);
Var
  FileName : string; {строка, содержащая имя файла}
  i,n:integer;
Begin
  write ('Введите имя файла ');{предложение ввести имя файла}
  readln (FileName);{ввод имени файла}
  assign (f, FileName);{связь имени файла и переменной}
  rewrite (f);{открытие файла для записи}
  readln(n);
  for i:= 1 to n do begin {цикл для расчетов и вывода данных в файл}
    write('введите строку: ');
    readln(s);
    append(f);
    write(f,s);end;
End;

procedure nn (var f:text);
var m:integer;
l,k:string;
begin
reset(f);
repeat
ReadLn(f,k);
l:=l+k;
until eof(f);
m:=length(l);
end;

begin

vv(f,s);
nn(f);
writeln(m);
close(f);
readln;
end.

народ подскажите пожайлуста....завта экзамен, надо хоть чуть-чуть понимать суть

[Stilet]

реализовать функцию, возвращающую количество символов в файле и с помощью ее найти количество символов в нашем файле.

Если файл формируется правильно то:

Function nn (var f:text):Integer
...
nn:=length(l);

begin
 vv(f,s);
 writeln(nn(f));
 close(f);
 readln;
 end.

[tatu_cat_69]

program sentences;
uses crt;
var
  f : text;
  c : char;
  w,s,s1,s2: string;
  i,n,m:integer;
procedure vv (var f:text;var s:string);
Var
  FileName : string; {строка, содержащая имя файла}
  i,n:integer;
Begin
  write ('Введите имя файла ');{предложение ввести имя файла}
  readln (FileName);{ввод имени файла}
  assign (f, FileName);{связь имени файла и переменной}
  rewrite (f);{открытие файла для записи}
  readln(n);
  for i:= 1 to n do begin {цикл для расчетов и вывода данных в файл}
    write('введите строку: ');
    readln(s);
    append(f);
    write(f,s);end;
End;

procedure nn (f:text; var m:integer);
var
l,k:string;
begin
reset(f);
repeat
ReadLn(f,k);
l:=l+k;
until eof(f);
m:=length(l);
end;

procedure mm (f:text; var s1,s2:string);
var s{,s1,s2}:string;
l1,p:integer;
begin
reset(f);
rewrite (f);{открытие файла для записи}

readln(s1);
readln(s2);
 l1:=Length(S1);
  P:=Pos(S1,s); {номер позиции, с которой в строке s     }
                       {в первый раз встречается подстрока Slovo1  }
  While (P>0) and (not eof(f)) do         {цикл продолжается до тех пор,пока подстрока}
                       {s1 встречается в строке s  }
   begin
     Delete(s1, P, l1); {удаление подстроки s, начинаю-}
                                  {щейся с позиции P, из строки s  }
     Insert(S2, s, P);  {вставка подстроки S2 }
                               { в строку s с позиции Р}
     P:=Pos(S1, s); {номер позиции, с которой подстрока S1}
                          {встречается в строке s в очередной раз}
     write(f,s2);
end;


end;


begin
vv(f,s);
nn(f,m);
writeln(m-1);
mm(f,s1,s2);
writeln(f);
close(f);
readln;
end.

вот подкоректировал....выводит кол-во строк, но не меняет слово((( пишет:
»*Ошибка ввода/вывода 105: файл не открыт для вывода (2.pas, строка 60)
»*Ошибка ввода/вывода 104: файл не открыт для ввода (2.pas, строка 49)