Написать программу в free pascal: дано целое число неизвестной размерности. найти сумму цифр его составляющих.

Var n,sum:integer;
begin
  sum:=0;
  write ('N = ');
  readln (n);
  while n <> 0 do
    begin
      sum:=sum+n mod 10;
      n:=n div 10;
    end;
  writeln ('Summa: ',sum);
end.