Заполнить файл последовательного доступа f целыми числами

var f, g: file of integer;
    pf, pg, n, i, tf, tg: longint;
    b: boolean;
begin
  randomize;
  assign(f, 'c:\f.dat');
  rewrite(f);
  repeat {ввод длины f с проверкой}
    write('Количество чисел n = ');
    readln(n);
    if n <= 0 then writeln('Введите n > 0.')
  until n > 0;
  writeln('Файл f:');
  for pf := 1 to n {формирование, запись и вывод на экран f}
    do begin
      tf := 99 - random(199);
      write(f, tf);
      write(tf:4)
    end;
  writeln;
  reset(f); {позиция f на начало}
  assign(g, 'c:\g.dat');
  rewrite(g); {открываем g для записи: позиция на начало, данные, если были, не использовать}
  pg := 0; {позиция для записи в g}
  writeln('Файл g:');
  for pf := 1 to n {формирование, запись и вывод на экран g}
    do begin
      read(f, tf); {читаем из f}
      reset(g); {позиция g на начало}
      b := true; {пока считаем, что повтора нет}
      for i := 0 to pg - 1 {ищем повтор}
        do begin
          read(g, tg); {читаем из g}
          if tg = tf {если очередное число из g равно числу из f}
            then begin {то это повтор}
              b := false; {флаг "нет повтора" сбросить}
              break {выходим из цикла досрочно, его продолжение не имеет смысла}
            end
        end;
      if b {если нет повтора,}
        then begin {то}
          seek(g, pg); {g в позицию записи}
          write(g, tf); {записать число из f в g}
          write(tf:4); {вывести его на экран}
          inc(pg) {инкремент позиции для записи в g}
        end;
    end;
  close(f);
  close(g);
  readln {для Pascal ABC эту строку можно убрать}
end.