Составьте программу,которая вводит трехзначное число и выводит число, образованное при перестановке цифр в обратном порядке (например:123-321). В Паскале. Помогите пожалуйста! Спасибо заранее!

var   a:longint;   s:string;   i:integer; begin   writeln('Введите целое положительное число');   readln(a);   Str(a,s);   write('Результат: ');   for i:= length(s) downto 1 do     write(s[i]);   writeln end. Тестовый пример: Введите целое положительное число 1234567890 Результат: 0987654321