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

Uses crt;
{-----------------}
Procedure PrintFile(var fl: File of Integer);
var t: Integer;
begin
  Seek(fl,0);
  While not Eof(fl) do
  begin
    Read(fl,t);
    Write(t,' ');
  end;
end;
{------------------}
Var
  f1,f2,f3: File of Integer;
  i,n,x,y: Integer;
BEGIN
Write('По сколько чисел записать в файлы? ');
Readln(n);
Assign(f1,'1.dat');
Rewrite(f1);
Assign(f2,'2.dat');
Rewrite(f2);
For i:=1 to n do
begin
  Write(f1,Random(100));
  Write(f2,Random(100));
end;
Reset(f1);
Reset(f2);
Writeln('Файл 1:');
PrintFile(f1);
Writeln;
Writeln('Файл 2:');
PrintFile(f2);
Writeln;
Assign(f3,'3.dat');
Rewrite(f3);
For i:=0 to Filesize(f1)-1 do
begin
  Seek(f1,i);
  Read(f1,x);
  Seek(f2,i);
  Read(f2,y);
  If x>y Then
  Write(f3,x)
  Else
  Write(f3,y);
end;
Writeln;
Writeln('Файл 3:');
PrintFile(f3);
Close(f1);
Close(f2);
Close(f3);
END.