Giúp kình với ạ!!!!!!!!!!!!!

program timtuoi;

uses crt;

var n,d:integer;

function tinhtong(k:integer):integer;

var m:integer;

begin

   m:=k;

    while m>0 do

           begin 

                   tinhtong:=tinhtong+m mod 10;

                   m:=m div 10;

           end;

begin

clrscr;

n:=1786;   d:=0;

while d<>tinhtong(n) do   n:=n-1;

write('Nam sinh cua Nguyen Du la: ',n);

readln

end.