На входе двухзначное число на выходе наоборот

Var c1,c2:char;
       x:string;
beginwriteln(введите двухзначное число);
readln(x);
if length(x)=2 then begin
c1:=x[1];
c2:=x[2];
writeln(число наоборот = +c2+c1);
end
else writeln(ошибка, невероне число);
end.