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

// Описываем переменные
Var F,F1,G:Text;
    I:Integer;
    Si,s:String;
Begin
 //Создаем исходный файл, путем заноса туда случайных чисел
 Assign(f,'input.txt');
 Rewrite(f);
//Я взял 100 чисел от 0 до 9 включительно
 For i:=0 to 100 do
  Writeln(f,Random(10));
 Close(f);
 
//Связываем две переменные с одним фалом, для одной будем записывать
 Assign(g,'output.txt');
 Rewrite(g);
 CLose(g);
//Для другой считывать
 Assign(F1,'output.txt');
 Reset(f);
//Пока не конец файла Ф
 While not EOF(F) do
   begin
     //Считываем строку (ну или число как кому  удобнее)
     Readln(f,Si);
    //Смотрим в файле Ф1, он же Г, только для чтения, есть ли такое число в файле
     Reset(f1);
     Append(g);
     While (not EOF(f1))and(Si<>s) do Readln(f1,s);
     //Если достигнут конец файла, а строки похожей нет, то записываем в новый файл Г считанное число
     If EOF(f1) and (Si<>s)  then
      Writeln(g,Si);
     //Закрываем, чтобы вновь считать
     Close(f1);
     CLose(g);
    end;
 
 Close(f);
End.

program ABC;
var b,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f (признак конца ввода: "555")');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;
 
//ввывод файла до изменения
reset(f);
writeLn('фаил F:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
writeLn('фаил G:');
reset(f);
while (not EOF(f)) do
Begin;
read(f,b);
If b mod 2=0 then
write(b:5);
end;
close(f);
end.

Uses
 CRT;
Var
 a:array[1..200] of integer;
 i,j,n:byte;
 l:integer;
 f,f2:text;
 t:boolean;
begin
Assign(f,'D:\1.txt');
rewrite(f);
repeat
 readln(n);
until n in [1..200];
randomize;
for i:=1 to n do
begin
 l:=random(20)-5;
 write(l,' ');
 write(f,' ',l);
end;
Close(f);
writeln;
reset(f);
n:=0;
while not eof(f) do
begin
 read(f,l);
 inc(n);
 a[n]:=l;
 write(l,' ');
end;
Close(f);
Assign(f2,'D:\2.txt');
rewrite(f2);
For i:= n downTo 1 do
begin
t:= True;
For j:= i + 1 To n do
 If (a[n - j + 1] = a[n - i + 1]) Then t:=False;
 If t Then write(f2,a[n - i + 1]:3);
end;
Close(f2);
end.

uses crt;
var f,g:file of integer;
    n,a,b,i,p:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(10)+1;
  write(f,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.