файл

[Абай]

Даны четыре файла целых чисел разного размера с именами SA, SB, SC,
SD и строка SE. Создать новый файл с именем SE, в котором чередовались
бы элементы исходных файлов с одним и тем же номером (как в задании
File48). «Лишние» элементы более длинных файлов в результирующий
файл не записывать.

[Serge_Bliznykov]

«Лишние» элементы более длинных файлов в результирующий
файл не записывать.

Это резко упрощает задачу.

var K : integer;
   fSA, fSB, fSC, fSD, fSE : file of integer;
   SA, SB, SC, SD, SE : string;
begin
  /// вввод имён файлов SA, SB, SC, SD, SE
  Assign(fSA, SA);
  Reset(fSA);
  Assign(fSB, SB);
  Reset(fSB);
  Assign(fSC, SC);
  Reset(fSC);
  Assign(fSD, SD);
  Reset(fSD);
  Assign(fSE, SE);
  Rewrite(fSE);
  while (Not Eof(fSA)) and (Not Eof(fSB))
        and (Not Eof(fSC)) and (Not Eof(fSD)) do 
  begin
      Read(fSA, K);
      Write(fSE, K);
      Read(fSB, K);
      Write(fSE, K);
      Read(fSC, K);
      Write(fSE, K);
      Read(fSD, K);
      Write(fSE, K);
  end;
  Close(fSA);
  Close(fSB);
  Close(fSC);
  Close(fSD);
  Close(fSE);
end.