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

uses CRT;
 
var S1,S2,SR1,SR2,Sa,Sb,IM:string;
      i:integer;
      Free:char;
begin
  ClrScr;
  repeat
    write('S1 = '); readln(S1);
  until (Length(S1)>=4) and (Length(S1)<=20);
 
  repeat
    write('S2 = '); read(S2);
  until (Length(S2)>=4) and (Length(S2) <= 20);
 
    Sa:=S1;
    Sb:=S2;
 
    
  for i:=1 to Length(S1) do
    begin
      if i<= Length(S2) then
        if (i mod 2 = 0) then  begin
                                 Sa[i]:=Free;
                                 Sa[i]:=S2[i];
                                 S2[i]:=Free;
                               end;
                             
      if (i mod 2 = 1) then SR1:=SR1+S1[i];
      
      if (i mod 2 = 0) then begin
                              Str(i,IM);
                              SR1:=SR1+Sa[i]+IM;
                            end;
    end;
 
 
    IM:='';
    
  for i:=1 to Length(S2) do
    begin
      if i<= Length(S1) then
        if (i mod 2 = 0) then  begin
                                 Sb[i]:=Free;
                                 Sb[i]:=S1[i];
                                 S1[i]:=Free;
                               end;
                             
      if (i mod 2 = 1) then SR2:=SR2+S2[i];
      
      if (i mod 2 = 0) then begin
                              Str(i,IM);
                              SR2:=SR2+Sb[i]+IM;
                            end;
    end;
 
   write(SR1 + '  ' +SR2);
end.