Создать новый файл с именем NameD, в котором чередовались бы элементы исходных файлов

uses crt;
type fail=file of integer;//тип файлов
procedure WriteFile(var h:fail;s:string;n:integer);//создание и заполнение исходных файлов
var i,x:integer;
begin
assign(h,s);
rewrite(h);
for i:=1 to n do
 begin
  x:=random(20);
  write(h,x);
 end;
end;
procedure ReadFile(var h:fail);//чтение файлов
var x:integer;
begin
reset(h);
while not eof(h) do
 begin
  read(h,x);
  write(x,' ');
 end;
writeln;
writeln;
close(h);
end;
var fa,fb,fc,fd:fail;
    n,i,x:integer;
begin
clrscr;
randomize;
write('Сколько чисел ввести в файлы ? n=');
readln(n);
WriteFile(fa,'namea',n);
WriteFile(fb,'nameb',n);
WriteFile(fc,'namec',n);
writeln('Содержание файла NameA:');
ReadFile(fa);
writeln('Содержание файла NameB:');
ReadFile(fb);
writeln('Содержание файла NameC:');
ReadFile(fc);
assign(fd,'named');//создаем результирующий файл
rewrite(fd);
reset(fa);
reset(fb);
reset(fc);
for i:=0 to n-1 do//пишем числа из файлов по очередности
 begin
  read(fa,x);
  write(fd,x);
  read(fb,x);
  write(fd,x);
  read(fc,x);
  write(fd,x);
 end;
close(fa);
close(fb);
close(fc);
writeln('Содержание файла NameD:');
ReadFile(fd);
readln
end.