Удалить из файла f числа, которые входят в файл g более двух раз, если таких чисел нет, то создать новый файл

uses
  crt;  
type
  TFileInt = file of integer;  
procedure InitFile(var f : TFileInt);
var n, i, a : integer;
begin
  write('Количество элементов исходного файла : ');
  readln(n);
  rewrite(f);
  randomize;
  for i := 1 to n do begin
    write(i,'- ое число : '); readln(a);  
    write(f,a);
    GotoXY(1,WhereY-1);
    ClrEOL;
  end;
  close(f);
end;
procedure PrintFile(var f : TFileInt);
var a : integer;
begin
  reset(f);
  while not eof(f) do begin
    read(f,a);
    write(a:4);
  end;
  writeln;
end;  
var
  f, g, h : TFileInt;
  i, a, povt, b, j, del : integer;
begin
  clrscr;
  assign(f,'f.dat');
  assign(g,'g.dat');
  InitFile(f);
  writeln('Содержимое файла f.dat : ');
  PrintFile(f);
  InitFile(g);
  writeln('Содержимое файла g.dat : ');
  PrintFile(g);
  Reset(f);
  del := 0;
  for i := 1 to filesize(f) do begin
    seek(f,i-1);
    read(f,a);
    reset(g);
    povt := 0;
    while not eof(g) do begin
      read(g,b);
      if a = b then inc(povt);
    end;
    if povt > 2 then begin
      for j := i to filesize(f)-1 do begin
        seek(f,j);
        read(f,b);
        seek(f,j-1);
        write(f,b); 
      end;
      inc(del);
    end;
  end;  
  Seek(f,filesize(f)-del);
  Truncate(f);
  If del<>0 then begin
    writeln('Содержимое файла f.dat : ');
    PrintFile(f);
  end
  else begin
    reset(f); reset(g);
    assign(h,'h.dat');
    rewrite(h);
    while (not eof(f)) or (not eof(g)) do begin
      If not eof(f) then begin 
        read(f,a);
        write(h,a);
      end;  
      If not eof(g) then begin 
        read(g,a);
        write(h,a);
      end;  
    end;
    writeln('Содержимое файла h.dat : ');
    PrintFile(h);
  end;
  readln;
end.