Дано натуральное число n . Переставить местами первую и последнюю цифры этого числа

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