проверьте задачу с файлами (Паскаль)

[chainik1]

Даны три файла целых чисел одинакового размера с именим NameA,NameB и Name C.Создать новый файл с именим NamеD,в котором чередавались бы исходных файлов с одним и тем же номером A0,B0,C0,A1,B1,C1,A2,B2,C2,... .

program aiyap;
 const n=5;
var
g,h,f,Name4,Name3,Name2,Name1 : file of integer;
i,b,a,c : integer;
begin
assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
rewrite(g);rewrite(h);rewrite(f);
for i:=1 to n do
begin
write('a='); readln(a);write(g,a);
write('b='); readln(a);write(h,b);
write('c='); readln(a);write(f,c);
end;
close(g);close(h);close(f);
reset(g); reset(f); reset(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b);
  read(h,c);
  write(f,a);
  write(f,b);
  write(f,c);
 end;
close(g);close(h);close(f);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

нет, немножко не так.

Смотрите, в задании нужно создать новый файл NameD (т.е. это будет 4-й файл)

поэтому объявите ещё один файл : file of integer
например, fileD : file of Integer;
Дальше

...
  rewrite(fileD);
  reset(g); reset(f); reset(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b);
  read(h,c);
  write(fileD,a);
  write(fileD,b);
  write(fileD,c);
 end;
Close(fileD);
close(g);close(h);close(f);

p.s. ну и абсолютная глупость написана в отношении
Name4,Name3,Name2,Name1
1) они должны быть типа String
2) в них должно что-то записываться (имена файлов)
3) ну и раз Вы их описали, значит собирались для чего-то использовать?
например, для задания имён в процедуре Assign()

  Assign(g,Name1);
  Assign(h,Name1);

ну и т.д.

[chainik1]

Сообщение от Serge_Bliznykov

нет, немножко не так.

Смотрите, в задании нужно создать новый файл NameD (т.е. это будет 4-й файл)

поэтому объявите ещё один файл : file of integer
например, fileD : file of Integer;
Дальше

...
  rewrite(fileD);
  reset(g); reset(f); reset(h);
While not(eof(f))and not(eof(g)) and not(eof(h)) do
 begin
  read(f,a);
  read(g,b);
  read(h,c);
  write(fileD,a);
  write(fileD,b);
  write(fileD,c);
 end;
Close(fileD);
close(g);close(h);close(f);

p.s. ну и абсолютная глупость написана в отношении
Name4,Name3,Name2,Name1
1) они должны быть типа String
2) в них должно что-то записываться (имена файлов)
3) ну и раз Вы их описали, значит собирались для чего-то использовать?
например, для задания имён в процедуре Assign()

  Assign(g,Name1);
  Assign(h,Name1);

ну и т.д.

а не могли бы вы не могли бы выложить полностью код с вашими изменениями??? пожалуйста