Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел

const n=10;
var f,q:file of integer;
    i,j,a,b,k:integer;
begin
assign(f,'text1');
assign(q,'text2');
rewrite(f);
rewrite(q);
for i:=1 to n do
begin
a:=random(10);
write(a,' ');
write(f,a);
end;
writeln;
reset(f);
read(f,a);
write(q,a);
while not eof(f) do
begin

begin
  Randomize;
  assign(f,'text1');

const MaxN=100;
  SrcFileName = 'data1.bin';
  
var f : file of integer;
    a : integer;
    i,n:integer;
begin
  WriteLn('Программа заполнения файла ',SrcFileName,' целыми числами');
  Randomize;
  repeat
    Write('Введите сколько чисел будет во входном файле: ');
    ReadLn(n);
  until (n>=1) and (n<=100);
  assign(f, SrcFileName );
  rewrite(f);
  for i:=1 to n do  begin
    a:=random(10);
    write(f,a);
  end;
  Close(f); {закрыли входной файл}
  
  // выведем содержимое файла пользователю
  Reset(f);
  WriteLn('Содержимое файла: ');
  while Not eof(f) do begin
    Read(f, a);
    Write(a,' ');
  end;
  WriteLn;
  Close(f);
  
end.

const MaxN=100;
  SrcFileName = 'data1.bin';
  OutFileName = 'data2.bin';
 
var f,g : file of integer;
    a : array[1..MaxN] of integer;
    i,n, j, k :integer;
begin
  WriteLn('Программа вывода повторяющихся элементов из файла ',SrcFileName,
          ' в файл ',OutFileName);
  assign(f, SrcFileName );
  reset(f);
  assign(g, OutFileName );
  rewrite(g);
 
  // прочитаем файл в массив
  i := 0;
  Reset(f);
  while Not eof(f) do begin
    inc(i);
    if i>MaxN then begin
      WriteLn('ВНИМАНИЕ!! В исходном файле БОЛЕЕ ',
         MaxN,' элементов! Все оставшиеся элементы игнорируем!');
      Break;
    end;
    Read(f, a[i]);
  end;
  Close(f);
  n := i; {количество прочитанных элементов в массив}
  
  for i:=1 to n do begin
    k := 0; {считаем, что a[i] ещё не встречалось ранее}
    for j:=1 to i-1 do
      if a[j] = a[i] then begin {если элемент есть раньше(до текущего), значит мы его уже обработали ранее}
        inc(k);
        Break;
      end;
    if k=0 then begin {если не было такого элемента ранее, ищем его в массиве дальше}
      for j:=i+1 to n do
        if a[j] = a[i] then begin {элемент есть после текущего, значит его нужно выводить в файл}
        Write(g, a[i]);
        Break;
      end;
    end;
  end;
  Close(g);
  WriteLn('Готово!');
  
  // выведем содержимое полученного файла пользователю
  Reset(g);
  WriteLn('Содержимое полученного файла ',OutFileName);
  while Not eof(g) do begin
    Read(g, k);
    Write(k,' ');
  end;
  WriteLn;
  Close(g);
 
end.