даны две строки символов одинаковой длины.сформировать новую строку по следующему правилу:сначала следует первый символ первой строки,затем первый символ второй строки и тд.решите пожалуйста в pascal.

vara,b,c:string;i:integer;beginrepeat       writeln('Введите строки равной длины');    readln(a);    readln(b);Until length(a)=length(b);       for i:=1 to length(a)do          c:=c+a[i]+b[i];writeln(c);end.