Заменить четные элементы файла,созданого в задании(создать файл,состоящий из N целых чисел.Вывести содержимое этого файла на экран)на сумму его элементов и полученные значения записать в новый файл — Pascal(Паскаль)

uses crt;
var f1,f2:file of integer;
    a,s:integer;
begin
clrscr;
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
writeln('Введите в файл целые числа, окончание ввода ноль:');
s:=0;
repeat
readln(a);
write(f1,a);{создание 1 файла}
s:=s+a;
until a=0;
clrscr;
writeln('Содержание исходного файла:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
  if odd(a) then write(f2,a){создание 2 файла}
  else write(f2,s);{файл 1 в буфер}
 end;
writeln;
writeln('Сумма=',s);
writeln;
close(f1);
reset(f2);
writeln('Содержание второго файла:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,a);
  write(a,' ');
 end;
close(f2);
readln
end.