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

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

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

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.