Mình nghĩ là ta nên xử lý như sau:
Procedure Gen(a, b: array; var c: array);
var i: longint;
begin
for i:=1 to n do begin
if (i mod 2 = 0) then c[i]:=b[i] else c[i]:=a[i];
...