Пользователь вводит две строки, а программа объединяет их…

Var s1,s2,r: string; i: integer; beginread (s1,s2); r: ='; if length (s1) >length (s2) then for i: =1 to length (s1) do r: =r+s1[i]+s2[i]else for i: =1 to length (s2) do r: =r+s1[i]+s2[i]; write (r) end.