Помогите переделать программу. Чтобы получилось:
"Ехал Ваня на коне
Вел сабаку на ремне
А старушка в это время
Мыла фикус на окне"
Пожайлуста! Не обязательно делать правильные окончания.

Все,понял,спасибо!

Скрин прицепил

Работает так: каждую пару строк делим на слова, меняем местами второе слово, потом снова слова сливаем в строку.

[1] - потому что нумерация слов от нуля идет.

Просто до это немного по другому делал.

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.РезультатЕхал Ваню на конеВёл собака на ремнеА старушку в это времяМыла фикус на окне