Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с последней (PascalABC)

procedure vivod(n: integer);

begin

   repeat

       writeln(n mod 10);

       n := n div 10;

   until n = 0;

end;

procedure revnum(num: integer) := num.ToString.Reverse.Printlines;

begin

 Revnum(2456);

end.