Составить программу, которая записывает каждое слово в тексте в обратном порядке.Delphi

[grongost]

Условие задачи:

Дан текст (массив строк) в котором слова разделены одним пробелом. Составить программу, которая записывает каждое слово в тексте в обратном порядке.



Нужен ввод через форму.Memo1(текст), Memo2(результат).

[m.a.x.i.m]

function naoborot(str1:string):string;//str1 - строка, которую переворачиваем
var str2,      //перевернутая строка
    buf:string;//вспомогательный буфер
begin
  repeat                             /////////////
  buf:=copy(str1,1,pos(' ',str1)-1); //-в цикле берем первое слово из исходной строки
  str2:=buf+' '+str2;                //-пишем его в начало итоговой строки
  delete(str1,1,pos(' ',str1));      //-обрезаем исходную строку
  until pos(' ',str1)=0;             // повторяем пока не останется пробелов


str2:=str1+' '+str2;//когда пробелов не осталось - значит в исходной
                    //строке - одно-единственное слово, пишем его в начало
                    //итоговой строки
Result:=str2;
end;

используем

memo2.Text:=naoborot(memo1.Text);

[savva]

эм функция copy откуда берётся?из стандартной библиотеки?

[grongost]

Спасибо. Помогло.

[Roof]

2 savva - из unit System