в 2-ух файлах записано по 10 чисел, создать 3-ий файл ,в

program f1_f2_f3;
var
f1,f2,f3: text;
a, b: array [1..10] of integer;
begin
AssignFile(f1, e:\pascal\n1.txt); //указать реальные полные имена файлов
AssignFile(f2, e:\pascal\n2.txt);
AssignFile(f3, e:\pascal\n3.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.