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

Var
a,b,c:string;
i:integer;
begin
repeat   
    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.