Помогите переработать программку. Чтоб вышло:"Ехал Ваня на конеВел сабаку на ремне

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:='Ехал фикус на жеребце';
  var b:='Водил старушку на ремне';
  var c:='А собака в это время';
  var d:='Мыла Ваню на окне';
  var m1:=a.ToWords;
  var m2:=d.ToWords;
  Swap(m1[1],m2[1]);
  a:=m1.JoinIntoString;
  d:=m2.JoinIntoString;
  m1:=b.ToWords;
  m2:=c.ToWords;
  Swap(m1[1],m2[1]);
  b:=m1.JoinIntoString;
  c:=m2.JoinIntoString;
  Writeln(a,NewLine,b,NewLine,c,NewLine,d)
end.

Результат
Ехал Ваню на жеребце
Водил собака на ремне
А старушку в это время
Мыла фикус на окне