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

type
  t_file = file of integer;
 
procedure output_file(s: string; var f: t_file);
 
var
  n: integer;
 
begin
  assign(f,s);
  reset(f);
  while not eof(f) do
    begin
      read(f,n);
      write(n,' ');
    end;
  close(f);
end;
 
 
procedure remove_repeats(var f: t_file);
 
var
  a, b, c: integer;
  i, j, k, l: integer;
 
begin
  reset(f);
  seek(f, 0);
  k := 0; i := 0;
  while i <= filesize(f) - 1 do
  begin
    seek(f, i);
    read(f, a);
    j := i + 1;
    while j <= filesize(f) - 1 - k do
    begin
      seek(f, j);
      read(f, b);
      if b = a then
      begin
        k := k + 1;
        for l := j to filesize(f) - 1 - k do
        begin
          seek(f, l + 1);
          read(f, c);
          seek(f, l);
          write(f, c);
        end;
      end
      else j := j + 1;
    end;
    i := i + 1;
  end;
  seek(f, filesize(f) - k);
  truncate(f);
  close(f);
end;
 
var
  s: string;
  ch: char;
  f: file of integer;
 
begin
  write('Введите имя файла: ');
  readln(s);
  assign(f, s);
  reset(f);
  if eof(f) then
  begin
    close(f);
    writeln('Файл пуст.');
    end
  else
  begin
    close(f);
    remove_repeats(f);
    write('Для вывода файла на экран введите Y, в противном случае N: ');
    readln(ch);
    if (ch = 'Y') or (ch = 'y') then output_file(s, f)
  end;
  readln;
  readln;
end.