задание на Обработку теста

[udgin]

Обработка теста
Задана фраза - последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова, предварительно преобразовав каждое из них по следующему правилу: перенести первую букву в конец слова. Программа должна читать текст из файла <<input.txt>> и выводить последовательность в файл <<output.txt>>

[Serge_Bliznykov]

поищите по форуму. Аналогичных задач тут, на форуме, вагон и маленькая тележка!

а преобразовать слово по заданному правилу очень легко.
Пусть очередное слово находится в переменной W,
тогда перенос первой буквы в конец слова можно выполнить таким кодом:

  W := Copy(W, 2, Length(W)-1) + Copy(W,1,1);