Дано трёхзначное число, найти его число при прочтении его цифр справа налево паскаль

var
a, b, i: integer; // объявляем переменные целочисленного типа.
s : string; // объявляем переменную строкового типа.
begin
write ('Введите трехзначное число:'); // вывод строки на экран.
read(a); // считываем число, введенное с клавиатуры.
while a > 0 do // начало цикла.
begin
b := a mod 10; // определяем последнюю цифру числа.
s:=s + inttostr(b); // сохраняем цифры числа в обратном порядке.
a := a div 10; // удаляем последнюю цифру из числа.
end;
write('Ответ: ', s); // вывод ответа на экран.
end.