Определить сумму цифр натурального числа n и вывести его запись в обратном порядке. (программа Паскаль)

program z2;
uses crt;
var k, s, n: integer; a: longint;
begin
readln (n);
k:=0; s:=0; a:=0;
repeat
k:=k+1;
s:=s+ n mod 10;
a:= a*10 +n mod 10;
n:= n div 10;
until n=0;
writeln ('число цифр ', k, '  сумма цифр; ', s);
writeln (‘Запись в обр. порядке; ',a);
end.