Составьте программу,которая вводит трехзначное число и выводит число, образованное при перестановке цифр в обратном порядке (например: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]);  writelnend.Тестовый пример:Введите целое положительное число1234567890Результат: 0987654321