Помогите решить задачу на Паскале.

Дана строка. Перенести последнюю букву слова в начало слова

Могу толко написать программу, в которой последние символы строки должны стать первыми, а первые последними.

uses crt;

var d, d1:string;

i:integer;

begin

writeln ('Введите слово или предложение'); r

eadln (d); d1:='';

for i:=length (d) downto 1 do d1:=d1+d[i]; d:=d1;

writeln (d);

end.