В строке S1 заменить нечётные символы на строку S2. Программа в Паскале

VarS1,S2,S3:string;i:integer;BeginWrite('S1: ');ReadLn(S1);Write('S2: ');ReadLn(S2);For i:= 1 to Length(S1) do    if i mod 2 = 0 then S3:=S3+S2    else S3:=S3+S1[i];S1:=S3;Write('S1: ',S1);End.Пример:S1: 123456789S2: ||S1: 1||3||5||7||9