При сортировке последние три значения дублируются

program pr92;
 var a,b,x,c,y,i,n,k:integer;
     f1,f2,f3:file of integer;
 begin
  writeln('Vvedite n');
  readln(n);
  writeln('Vvedite k');
  readln(k);
  assign(f1,'D:\pascal\учеба\pr9(2)f1.dat');
  rewrite(f1);
   for i:=1 to n do
    begin
     writeln('Vvedite a');
     readln(a);
     write(f1,a);
    end;
  close(f1);
  assign(f2,'D:\pascal\учеба\pr9(2)f2.dat');
  rewrite(f2);
   for i:=1 to k do
    begin
     writeln('Vvedite b');
     readln(b);
     write(f2,b);
    end;
  close(f2);
  reset(f1); reset(f2);
   x:=0;        y:=0;
   seek(f1,x);  seek(f2,y);
   read(f1,a);  read(f2,b);
  assign(f3,'D:\pascal\учеба\pr9(2)f3.dat');
  rewrite(f3);
   for i:=1 to (n+k) do
    begin
     if not eof(f1) then
      begin
       if not eof(f2) then
        begin
         if a<b then
          begin
           c:=a;
           write(f3,c);
           x:=x+1;
           seek(f1,x);
           read(f1,a);
          end
         else
          begin
           c:=b;
           write(f3,c);
           y:=y+1;
           seek(f2,y);
           read(f2,b);
          end
        end
       else
        begin
         c:=a;
         write(f3,c);
        end
      end
       else
        begin
         c:=b;
         write(f3,c);
        end;
    end;
  close(f1); close(f2); close(f3);
  reset(f3);
   While not eof(f3) do
    begin
     read(f3,c);
     write(c:4);
    end;
  close(f3);
 end.