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

uses crt;
var f1,f2,f3:file of integer;
    n,a,b,c,i:integer;
begin
clrscr;
randomize;
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
assign(f3,'file3');
rewrite(f3);
write('Введите размер исходных файлов n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50);
  b:=random(50);
  write(f1,a);
  write(f2,b);
 end;
writeln('Содержание исходного файла 1:');
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  write(a,' ');
 end;
writeln;
writeln;
writeln('Содержание исходного файла 2:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,a);
  write(a,' ');
 end;
writeln;
writeln;
for i:=0 to n-1 do
 begin
  seek(f1,i);
  read(f1,a);
  seek(f2,i);
  read(f2,b);
  {для первой задачи}
  c:=a+b;
  {для второй if a>b then c:=a else c:=b;}
  {для третьей c:=a-b;}
  {для четвертой if a<b then c:=a else c:=b}
  write(f3,c);
 end;
close(f1);
close(f2);
seek(f3,0);
writeln('Содержание результирующего файла 3:');
while not eof(f3) do
 begin
  read(f3,a);
  write(a,' ');
 end;
close(f3);
readln
end.