Дано естественное число n . Переставить местами первую и заключительную числа

program change;
var n,d,p:integer;//число, длина строчки (количество цифр), место оплошности в функции val
s,first,last:string; //строка,первый знак,заключительный знак (первая и заключительная цифры)
begin
writeln(Enter n);
readln(n);
str(n,s); // числа n в строчку s
d:=length(s); //длины d строки s
last:=copy(s,d,1); //копирование заключительной цифры 
s:=last + s; //прибавленье скопированной числа в начало,
delete(s,d+1,1); // Удаление последней числа
first:=copy(s,2,1); //копирование числа,которая была первой, но стала 2-ой
s:=s+first; // прибавленье скопированной числа в конец строки
delete(s,2,1); //Удаление 2-ой цифры
val(s,n,p); //преображение  s в число n
writeln(s) //вывод числа 
end.