Составить программу: Ввести слово... , и чтобы программа: а) напечатала это слово по вертикали; б) переставила буквы слова в обратном порядке Помогите пожалуйста!

напечатала это слово по вертикале 

Доброго времени суток. Вводите слово и в цикле от 1 до длины слова ваыводите каждый символ на отдельной строке. for i:=1 to Length(S) do WriteLn(S[ i ]; А вот как переставить слова в слове не знаю. :-) Другое дело, если буквы. Подсказка: цикл for можно выполнять не только от ментший значений управляющей переменной к большим, но и наоборот. Делается это с помощью слова downto Удачи!