как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д.

[vitalik007]

Пользователь вводит две строки
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и так далее
например
s1='qwert'
s2='asd'
otvet='qawsedrt'

[mutabor]

попробуй это

if Length(s1) > Length(s2) then max:=Length(s1) else max:=Length(s2);
for i:=1 to max do 
  begin
  if i <= Length(s1) then otvet:=otvet+s1[i];
   if i <= Length(s2) then otvet:=otvet+s2[i];
  end;