задача в паскале...

задача в паскале помогите!!!!! из числа а(четырёхзначное) получить число b записанное в обрадномпорядке

 

вроде так, я уже давно в паскале не работала
 
 
program abcd;
uses crt;
var a,b,c,d,e,f,g,h:integer;
begin
Clrscr;
writeln("a=",a);
readln(a);
c:=a div 1000;
d:=a mod 1000;
e:=d div 100;
f:=d mod 100;
g:=f div 10;
h:=f mod 10;
b=h*1000+g*100+e*10+c;
readln(c);
readln; 
end.