Файле 1.txt записаны целые числа, вычислить сумму элементов файла и результат вместе с исходными данными записать в файл 2.txt — Pascal(Паскаль)

uses crt;
var
f,f1:text;
st:integer;
i:integer;
 
begin
clrscr;
assign(f,'c:\1.txt');
reset(f);
assign(f1,'c:\2.txt');
rewrite(f1);
while not eof(f) do
begin
read(f,st);
i:=i+st;
writeln('Summa ',i);
write(f1,st,'  ');
write(f1,i);
writeln(f1);
end;
readkey;
close(f);close(f1);
end.