Giúp em với ! Viết chương trình kiểm tra một số N nhập từ bàn phím xuất ra tổng các chữ số của nó

program tong_chu_so;

uses crt;

var n:longint;

      t:byte;

begin

       clrscr;

       write(‘Nhap N: ‘);  readln(n);

       t:=0;

       while n>0 do

              begin

                     t:=t+n mod 10;

                     n:=n div 10;

              end;

       write(‘Tong cac chu so la: ‘,t);

       readln;

end.