Дано натуральное число n. переставить первую и последнюю цифру числа n. пример: n: =123456 s=623451

Var k: integer; s,j: string;
begin
write ('Введите число: '); read (s);
k:=length(s);
str(s,j);
writeln ('Результат: ',j[k],copy(s,2,k-2),j[1]);
end.