Вывести трехзначное(123)число в обратном порядке. pascal например 123 вывести 321

Var ed,des,sot,ch:integer;
begin
readln(ch);
sot:= ch div 100;
des:= ch mod 100;
des:= des div 10;
ed:=ch mod 10;
writeln(ed*100+des*10+sot);
end.