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

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

Доброго времени суток.

Вводите слово и в цикле от 1 до длины слова ваыводите каждый символ на отдельной строке.

for i:=1 to Length(S) do WriteLn(S[ i ];

А вот как переставить слова в слове не знаю. :-) Другое дело, если буквы. Подсказка: цикл for можно выполнять не только от ментший значений управляющей переменной к большим, но и наоборот. Делается это с слова downto

Удачи!