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

  crt;
 
var
  f1, f2, f3: file of integer;
  t, n, i, j, a, b, c: integer;
  nf: string;
 
begin
 clrscr;
  repeat
    writeln('klips');
    writeln('');
    writeln('1.Zadanie');
    writeln('2.Vibrat imya kone4nogo faila;');
    writeln('3.Ukazat koli4estvo 4isel v na4alnih failax');
    writeln('4.Slit faili v odin i uporyado4it 4isla');
    writeln('5.exit');
    readln(t);
    clrscr;
    if t = 1 then begin  writeln('Zadanie: Slit dva 4islennix faila v odin tretii uporyado4ennii fail');
    writeln('');
    end;
 
    if t = 2 then
    begin
      writeln('Viberite imya vihodnogo faila');
      clrscr;
      randomize;
      assign(f1, 'Name1.txt');
      rewrite(f1);
      assign(f2, 'Name2.txt');
      rewrite(f2);
 
      write('name of file:');
      readln(nf);
      nf := nf + '.txt';
      assign(f3, nf);
      rewrite(f3);
    writeln('');
    writeln('');
    end;
    if t = 3 then
    begin
      writeln('Ukajite koli4estvo 4isel sperva v pervom a zatem vo vtorom faile');
      write('skolko 4isel vvesti v pervii fail n=');
      readln(n);
      writeln('Soderjanie faila Name1:');
      a := 1;
      for i := 1 to n do
      begin
        a := a + random(5);
        write(f1, a);
        write(a:4);
      end;
      writeln;
      writeln;
      write('skolko 4isel vvesti vo vtoroi fail n=');
      readln(n);
      writeln('soderjanie faila Name2:');
      a := 1;
      for i := 1 to n do
      begin
        a := a + random(5);
        write(f2, a);
        write(a:4);
      end;
      writeln;
      writeln;
    end;
    if t = 4 then
    begin
      writeln('Faili uspeshno svedeni i uporyado4enni po vozrastaniu. Rezultat: ');
      reset(f1);
      reset(f2);
      i := 0;j := 0;
 
      seek(f1, 0);
      read(f1, a);
      seek(f2, 0);
      read(f2, b);
      if a < b then write(f3, a) else write(f3, b);
 
      reset(f3);
      while(i < filesize(f1)) or (j < filesize(f2)) do
      begin
        if (i < filesize(f1)) and (j < filesize(f2)) then
        begin
          seek(f1, i);
          read(f1, a);
          seek(f2, j);
          read(f2, b);
          if a < b then
          begin
            seek(f3, filesize(f3) - 1);
            read(f3, c);
            if a <> c then
            begin
              seek(f3, filesize(f3));
              write(f3, a);
            end;
            inc(i);
          end
          else
          begin
            seek(f3, filesize(f3) - 1);
            read(f3, c);
            if b <> c then
            begin
              seek(f3, filesize(f3));
              write(f3, b);
            end;
            inc(j);
          end;
        end
        else if j > filesize(f2) - 1 then
        begin
          seek(f1, i);
          read(f1, a);
          seek(f3, filesize(f3) - 1);
          read(f3, c);
          if a <> c then
          begin
            seek(f3, filesize(f3));
            write(f3, a);
          end;
          inc(i);
        end
        else if i > filesize(f1) - 1 then
        begin
          seek(f2, j);
          read(f2, b);
          seek(f3, filesize(f3) - 1);
          read(f3, c);
          if b <> c then
          begin
            seek(f3, filesize(f3));
            write(f3, b);
          end;
          inc(j);
        end;
      end;
      close(f1);
      close(f2);
      reset(f3);
      writeln('sliyanie etih failov:');
      while not eof(f3) do
      begin
        read(f3, a);
        write(a:4);
      end;
      close(f3);
      writeln('');
      writeln('');
    end;
  until t = 5
end.