Определите сумму цифр числа паскаль

Uses crt;
Var i,n,sm:integer;
Begin
Clrscr;
Writeln('Введите число N: ');
Readln(n);
For i:=1 to n do
Sm:=sm+i;
Writeln('Сумма цифр числа ',n,' равно ',sm);
Readkey;
End.