Задача по Паскалю, файл

[Абай]

Задача по Паскалю, файл

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

 

[Абай]

я решил

program file;
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.