Помогите решить задачу на Паскале. Дана строка. Перенести последнюю букву слова в…

Могу толко написать программу, в которой последние символы строки должны стать первыми, а первые последними.uses crt; var d,d1: string; i: integer; beginwriteln ('Введите слово или предложение'); readln (d); d1: ='; for i: =length (d) downto 1 do d1: =d1+d[i]; d: =d1; writeln (d); end.