Паскаль. напишите программу для вывода четырехзначного числа в обратном порядке. ,!

Var a, b:integer;
begin
write('Введите число: ');
readln(a);
repeat;
  b:=b*10+a mod 10;
  a:=a div 10;
until a=0;
writeln(b);
readln;
end.