Слова и строки в Delphi...

[alex_fcsm]

За исключением clrscr все остальное подходит

[Zibiv]

Угу, я уже это понял)

[Zibiv]

Аа еще вопрос а как быть с
writeln('Input str');
readln(s);
Если я к примеру ввожу текст к поле Memo?

[alex_fcsm]

точно не помню что-то в таком духе

s:=Memo1.items[Memo1.ItemIndex];

[Zibiv]

Так с этим все понятно-разобрался, а как быть с перестановкой слов в зависимости от номера..(

[alex_fcsm]

Вы же разбили текст на массив слов, тогда индекс массива означает номер слова

[Zibiv]

Сегодня все задачи сдал кроме этой))
Ну да разбиваю..номер сова есть, ну а как мне их переставлять, пользователь должен вводить в каком порядке переставить слова.. как эту штук реализовать?, я могу сделать, но если только в коде сразу задавать в каком порядке выводить слова..

[alex_fcsm]

Как Вам нужно переставить слова?Пример.

[Zibiv]

Как я говорил, надо Переставить слова с заданными номерами в последней строке, то есть вводим слово в одно поле Memo1 нажимаем кнопку и выводится отсортированный текст в поле Memo2... В последней строке должны стоять номера например 2 4 6 8 10 3, а те слова которые выведутся в поле Memo2, соответственно второе четвертое шестое восьмое десятое и т.д. ..я уже чего только не делал, не получается и все, видно знаний на данный момент не хватает)

[alex_fcsm]

То есть нужно последнюю строку понимать не как текст а как инструкции к ввыводу? Если это последня строка то вывести в Мемо2 a[считанное число]