Developing.ru

Нужно написать алгоритм поиска в ведённой строке слов с заглавными буквами и поставить их в начало строки(язык pascal)

procedure TForm1.Button1Click(Sender: TObject);
var
_i, _j: integer;
_str, _res1, _res2: string;
begin
_str := 'слово_1 слово_2 Слово_с_заглавной_буквы_1 слово_3 слово_4 Cлово_с_заглавной_буквы_2 слово_5';
_res1 := '';
_res2 := _str;
_j := Length(_str);
for _i := Length(_str) downto 2 do
if (_str[_i] in ['A'..'Z', 'А'..'Я']) and (_str[_i-1]= ' ') then begin
_res1 := copy(_str, _i, _j-_i) + ' '+ _res1;
delete(_res2, _i, _j-_i+1);
end
else if _str[_i] = ' ' then
_j := _i;
Memo1.Text := _res1+_res2
end;