Помогите решить задачу про перемену слов местами

[koozbass]

Дано словосочетание: верные друзья
Надо получить: друзья верные
Решить надо с помощью алгоритма, в delphi помогите пожалуйста

[BulldozerBSG]

алгоритм где? если с помощью него надо решить, а то у нас мыслей много знаешь...

[Oleg_Rus]

Во-первых: если вопрос относится именно к Delphi, то пишите, пожалуйста, в соответствующем разделе.
Во -вторых:
вот кусок кода

Код: Выделить всё

function invert(str: String): String;
var buff: string;
begin
  buff:= copy(str, 1, pos(' ', str)-1);
  delete(str, 1, length(buff)+1);
  invert:= str+' '+buff;
end.