program RemoveDuplicates;
var
inputFile, outputFile: TextFile;
numbers: array of Integer;
i, j, num: Integer;
duplicate: Boolean;
begin
AssignFile(inputFile, 'f.txt');
Reset(inputFile);
i := 0;
while not Eof(inputFile) do
begin
Read(inputFile, num);
SetLength(numbers, Length(numbers) + 1);
numbers[i] := num;
Inc(i);
end;
CloseFile(inputFile);
AssignFile(outputFile, 'g.txt');
Rewrite(outputFile);
for i := 0 to High(numbers) do
begin
duplicate := False;
for j := 0 to High(numbers) do
begin
if (numbers[i] = numbers[j]) and (i <> j) then
begin
duplicate := True;
Break;
end;
end;
if not duplicate then
Write(outputFile, numbers[i], ' ');
end;
CloseFile(outputFile);
end.

Программа сначала читает числа из файла f.txt и сохраняет их в массив numbers. Затем она открывает файл g.txt и записывает все числа из массива numbers, исключая повторяющиеся значения.