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

program File49;
var
 SA,SB,SC,SD,SE: String;
 FA,FB,FC,FD,FE :File of Integer;
 El:Integer;
 
begin
  Write('SA: ');
  Readln(SA);
 
  Write('SB: ');
  Readln(SB);
 
  Write('SC: ');
  Readln(SC);
 
  Write('SD: ');
  Readln(SD);
 
  Write('SE: ');
  Readln(SE);
 
  Assign(FA,SA);
  Reset(FA);
 
  Assign(FB,SB);
  Reset(FB);
 
  Assign(FC,SC);
  Reset(FC);
 
  Assign(FD,SD);
  Reset(FD);
 
  Assign(FE,SE);
  Rewrite(FE);
 
  while (not Eof(FA)) and (not Eof(FB)) and (not Eof(FC)) and (not Eof(FD)) do
   begin
    Read(FA,El);
    Write(FE,El);
 
    Read(FB,El);
    Write(FE,El);
 
    Read(FC,El);
    Write(FE,El);
 
    Read(FD,El);
    Write(FE,El);
   end;
 
  Close(FA);
  Close(FB);
  Close(FC);
  Close(FD);
  Close(FE);
end.

var
  fa, fb, fc, fd, fe: Text;
  a, b, c, d: Integer;
...
while not SeekEoF(fa) and not SeekEoF(fb) and not SeekEoF(fc) and not SeekEoF(fd) do begin
  Read(fa,a); Read(fb,b); Read(fc,c); Read(fd,d); WriteLn(fe, a, b, c, d);
end;
...

const W=4;
var
 f: array [1..5] of file of Integer;
 i, j, e: Integer;
 b: Boolean;
 s: String;
begin
  Randomize;
  for i:=1 to 5 do begin
    Write('S',Chr(Ord('A')+i-1),': '); ReadLn(s); 
    Assign(f[i],s); Rewrite(f[i]);
  end;
  for i:=1 to 4 do begin
    Write('F',Chr(Ord('A')+i-1),':');
    for j:=1 to 5+Random(6) do begin
      e:=Random(1000); Write(f[i],e); Write(e:W);
    end; WriteLn;
  end;
  for i:=1 to 4 do Seek(f[i],0);
  WriteLn('FE:');
  repeat
    b:=False; for i:=1 to 4 do b:=b or EoF(f[i]);
    if b then Break;
    for i:=1 to 4 do begin
      Read(f[i],e); Write(f[5],e); Write(e:W);
    end; WriteLn;
  until False;
  for i:=1 to 5 do Close(f[i]);
end.

var
  s: String;
  n: Integer;
...
  Read(s); {не перейдет на другую строку без отдельного ReadLn}
  Read(n); {пропустит пробельные символы, включая разделители строк, до первого непробельного}