Дано натуральное четырехзначное число n. определите, будут ли сумма цифр числа и само число кратны 7.

 var s,n,i:integer; d,h:string; 
 begin 
writeln('Введите 4-х значное число'); Readln(n); 
d:= intToStr(n); 
for i:=1 to 4 do begin 
h:= d[i]; 
s:= s + strToint(h); end;
 if (n mod 7 = 0) and (s mod 7= 0) then 
writeln('число и сумма цифр делится на 7',n) 
else writeln('число и сумма цифр не делится на 7')
 end.

для проверки 71064