Дано целое двузначное число х выведите число полученное при перестановке его цифр значение х введите с клавиатуры

Program ff;

var
x:string;
begin
writeln('Введите x:');
readln(x);
if x.Length=2 then
 begin
  x:=x[2]+x[1];
  writeln(x);
 end
 else Writeln('Введенное вами число имеет неверный формат');
end.