Задача по текстовым файлам Опции

[manubest]

Первым элементом каждой строки явл. число. Создать копию файла и найти сумму 1 компонентов всех строк

Program LABA2_RI;
uses CRT;
var f,f1:text;
    c,sum,Sx:real;
    n,p,i:byte;
Procedure MENU(var p:byte);
var i:byte;
           Begin
                writeln('MENU');
                writeln('1.Vvod dannih');
                writeln('2.Obrabotka dannih');
                writeln('3.Vivod rezultatov');
                writeln('4.Vihod');
                writeln;
                writeln('Vash vibor -');
                readln(p);
                writeln;
           End;
Procedure Summa(var n:byte; var sum:real); {Їа(r)楤га  д(r)а¬Ёа(r)ў *Ёп д (c)« }
var i:byte;
           Begin
 
               sum:=0;
               for i:=1 to n do
                     begin
                     readln(c);
                     append(f);
                     write(f,c);
                     sum:=sum+c;
                     end;
 
           End;
Begin
    clrscr;
    assign(f,'symbol3');
    reset(f);
    assign(f1,'Budushiy fayl');
    rewrite(f1);
    clrscr;
          while not eof(f) do begin
                                 readln (f,c);
                                 writeln(f1,c);
                              end;
Begin
     repeat
     MENU(p);
        Begin
             clrscr;
             case p of
                    1:begin
                         writeln('Vvod dannih');
                         write('Vvedite kolichestvo elementov=');
                         readln(n);
                       {  Summa(n,sum);}
                     end;
                     2:begin
                         writeln('Obrabotka dannih');
                         Summa(n,sum);
                         end;
                     3:begin
                         writeln('sum=',sum:5:2);
                         write(f1,sum);
                         writeln('Kopiya fayla:');
                         writeln('sum=',sum:5:2);
                      end;
                    4:begin
                         writeln('Vihod');
                    end;
        End;
End;
 
until
     p=4;
 
close(f);
close(f1);
readln;
end;
End.

Мне препод. говорит, что Я в файл ничё не записываю.Просмотрел оба файла. В первом файле выводятся цифры которые мы ввели) во втором результат, т.е. сумма)Может нахождение суммы для текстовых данных по другому осуществляется???