Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. Через сколько таких действий получится ноль — Pascal(Паскаль)

Program Otstoi_4_2; {Vichitaem sumu cifr}
uses crt;
var
n,c:integer;
function summa_cifr(n:integer):word;
var k,nn,summ:word;
begin k:=1; nn:=n; summ:=0;
repeat
summ:=summ+(nn mod 10);
inc(k);
nn:=nn div 10;
until nn=0;
summa_cifr:=summ;
end;

begin
clrscr;
writeln('Vvedi naturalnoe chislo.');
readln(N);
c:=0;
repeat
n:=n-summa_cifr(n);
c:=c+1;
until n=0;

writeln('Nado vichest  ',c,' raz.');
readln;
end.