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

uses crt;
var f,g:file of longint;
    n,a,b,i,p:longint;
    m:set of byte;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);
m:=[];
for i:=1 to n do
 begin
  repeat
  a:=random(255)+1;
  until not(a in m);
  write(f,a);
  m:=m+[a];
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  read(f,b);
  p:=a*b;
  write(g,p);
 end;
close(f);
writeln('Содержание нового файла:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.

uses crt;
var f,g:file of integer;
    n,a,b,k,i,j,p:integer;
    m:array[1..1000] of integer;
    fl:boolean;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);
a:=random(50)-20;{диапазон должен быть больше n}
k:=1;
m[k]:=a;
write(f,a);
for i:=2 to n do
 begin
  repeat
  a:=random(50)-20;
  fl:=true;
  j:=1;
  while(j<=k) and fl do
  if a=m[k] then fl:=false
  else j:=j+1;
  until fl;
  write(f,a);
  k:=k+1;
  m[k]:=a;
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  read(f,b);
  p:=a*b;
  write(g,p);
 end;
close(f);
writeln('Содержание нового файла:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.