Написать программу которая запрашивает два слова а и б одинаковой длины и формирует новое слово в котором буквы первого чередуется с буквами второго.в паскале *ПОМОГИТЕ ПОЖАЛУЙСТАААА

1)frightened2)uncomfortable3)depressed4)energetic5)shocked

program gt;var c,a,b:string;i,l:longint;beginreadln(a);readln(b);l:=length(a);for i:=1 to l dobeginc:=c+a[i]+b[i];end;writeln(c);end.

var a, b :string;i: integer;beginreadln(a);readln(b);for i:=1 to length(a) do write (a[i],b[i]);end.P.S. Надеюсь на благодарность и лучший ответ.