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

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.