Ввести пятизначное число а. Поменять крайние числа местами.На языке Паскаль

begin
  var s:=ReadlnString('Введите число:');
  Swap(s[1],s[s.Length]); Writeln('Результат: ',s);
end.


Введите число: 73028
Результат: 83027