Даны две строки произвольного размера сформировать третью взяв из первой символы стоящие на чётных позициях, а из второй символы стоящие на нечётных позициях установив обе части на те же позиции и с решением

Uses crt;
var s1,s2,s3:string;
i:integer;
begin
writeln('Введите первую строку.');
readln(s1);
writeln('Введите вторую строку.');
readln(s2);
for i:=1 to min(length(s1),length(s2)) do
if i mod 2<>0 then
s3:=concat(s3,s2[i])
else
s3:=concat(s3,s1[i]);
writeln(s3);
end.