Αντιστροφή διψήφιου αριθμού

program antistrofi;
var a,b,c,d:integer;
begin
repeat
    write('Δώσε έναν διψήφιο αριθμό:');
    readln(a);
until (a>=10) and (a<=99);
b:=a div 10;
c:=a mod 10;
d:=c*10+b;
writeln('Ο αντίστροφος είναι:',d);
End.