Исключить из файла повторные вхождения одного и того же числа

Program f1;
uses
  crt;
var
  f : file of integer;
  n, i, j, k, z, n1 : byte;
  a, b : integer;
  bol : boolean;
begin
  clrscr;
  assign(f,'FileInt.dat');
  rewrite(f);
  randomize;
  write('Число компонент в файле : ');
  readln(n);
  for i := 1 to n do
    begin
     write(i,'-ый компонент : ');
     readln(a);
     write(f,a);
    end;
  clrscr;
  writeln('Исходный файл FileInt.dat :');
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      write(a:4);
    end;
  writeln;
  reset(f);
  n := 0;
  n1 := filesize(f);
  k := 1;
      while (k<=filesize(f)-1) do
        begin
          seek(f,k-1);
          read(f,a);
          bol := false;
          for z := k+1 to n1 do
            begin
              seek(f,z-1);
              read(f,b);
              if a=b then
                begin
                 bol := true;
                 i := z;
                end;
            end;
          if bol then
           begin
            inc(n);
            dec(n1);
            for j := i+1 to filesize(f) do
              begin
                seek(f,j-1);
                read(f,a);
                seek(f,j-2);
                write(f,a);
              end;
           end
          else inc(k);
        end;
  seek(f,filesize(f)-n);
  truncate(f);
  writeln('Содержимое исходного файла после удаления повторяющихся элементов :');
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      write(a:4);
    end;
  close(f);
  readln;
end.