где изменить код программы ??

[Anya_Princess]

Дано натуральное число n. Найти сумму цифровых корней чисел от 1 до n, кратных 7 (цифровой корень – сумма цифр числа до получения однозначного числа).


program primer15;
uses crt;
var
n, k, s: longint;
begin
clrscr;
writeln(' число='); readln(n);
s:=n;
while s>9 do
begin
k:=s;s:=0;
repeat
S:=s+k mod 10; k:=k div 10;
until k=0;
end;
writeln(' цифр. корень числа ',n, ' равен ',s);
readln;
end.