не, вы не так поняли
куда сохранился КОД я это знаю, а вот ФАЙЛ который создал код-где посмотреть?
вот код который должен записать данные в файл f1 и f2
program project1;
uses SysUtils;
type intfile=file of integer;
var f1: file of integer;
f2: file of integer;
procedure InputFile1(var f1:intfile);
var i,n,x,k:integer;
begin
Rewrite(f1);
writeln('Введите количество чисел');
readln(n);
k:=1;
for i:=1 to n do
begin
writeln('Введите число, равное 0 или 1');
readln(x);
write(f1,x);
end;
CloseFile(f1);
end;
procedure ReadFile1(var f1:intfile);
var i,x:integer;
begin
reset(f1);
writeln();
writeln('Файл f1 состоит из чисел');
for i:=1 to FileSize(f1) do
begin
read(f1,x);
write(x:5);
end;
end;
procedure InputFile2(var f2:intfile);
var i,x,k: integer;
begin
reset(f1);
rewrite(f2);
for i:=1 to FileSize(f1) do
begin
read(f1,x);
if x=1 then
begin
k:=0;
write(f2,k);
end;
if x=0 then
begin
k:=1;
write(f2,k);
end;
end;
end;
procedure ReadFile2(var f2:intfile);
var i,k:integer;
begin
reset(f2);
writeln();
writeln();
writeln('Файл f2 состоит из чисел');
for i:=1 to FileSize(f2) do
begin
read(f2,k);
write(k:5);
end;
end;
begin
Assign(f1,'f1.txt');
Assign(f2,'f2.txt');
InputFile1(f1);
ReadFile1(f1);
InputFile2(f2);
ReadFile2(f2);
readln();
end.