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

program tref;

var a1, a2, a3:string; i, c, b, j, a:integer;

begin

a:=1;

b:=1;

readln (a1) ;

readln (a2) ;

a3:=a1+a2; for i:=1 to length (a1) * 2 do

begin

if (i mod 2 = 1) then

begin

a3[i]:=a1[b];

b:=b+1; end;;

if (i mod 2 = 0) then

begin

a3[i]:=a2[a];

a:=a+1;

end;

end;

writeln (a3) ;

end.