в двух файлах записано по 10 чисел, создать третий файл ,в котором чередуются числа первых двух файла. Написать в программе

program f1_f2_f3;var f1,f2,f3: text; a, b: array [1..10] of integer; begin AssignFile(f1, \'e:\\pascal\1.txt\'); //указать реальные полные имена файлов AssignFile(f2, \'e:\\pascal\2.txt\'); AssignFile(f3, \'e:\\pascal\3.txt\'); Reset(f1); for k: integer:= 1 to 10 do Read(f1, a[k]); CloseFile(f1); Reset(f2); for k:integer:=1 to 10 do Read(f2, b[k]); CloseFile(f2); rewrite(f3); for k: integer:= 1 to 10 do if k = 1 then write(f3, a[k], \' \', b[k]) else write(f3, \' \', a[k], \' \', b[k]); close(f3) end.