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

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.