Введённую с клавиатуры строку А записать в строку В: четные позиции сохранить, нечетные переставить в обратном порядке

Program zadanie_4_2_9;
var
  a,b:string;
  i,n:integer;
  x:char;
  begin
  writeln ('Введённую с клавиатуры строку А записать в строку В: четные позиции сохранить, нечетные переставить в обратном порядке. Строку В вывести на экран.');
  writeln ('Введите строку A');
  readln (a);
  b:='';
  for i := 1 to length(a) div 2 do 
  if i mod 2 <> 0 then
  begin
   x:=a[i];
    a[i]:=a[i+2];
    a[i+2]:=x;
    end;
    write('Измененная строка: ',a);
    writeln;
     insert(a,b,i);
     writeln('B = ',b);
    readln;
End.

var a, b : String; i, last : Integer;
begin
  a := ReadLn(a);
  b := '';
  last := Length(a); if odd(last) then inc(last);
  for i := 1 to Length(a) do
    if odd(i) then
      b := b + a[last-i]
    else
      b := b + a[i];
  WriteLn(b);
end.