20. Сколько можно?

Задано натуральное число N. От данного числа вычтем сумму цифр этого числа, от полученного числа опять вычтем сумму цифр и т.д. Данную операцию будем продолжать до тех пор, пока полученное число положительно. Сколько раз будем выполнять данную операцию?

Код решения:
*****
var n, rez, i, m:longint;
   ln, sum:integer;
   t:byte;
   code:word;
begin
    readln (n);
    while n>0 do
    begin
         sum:=0;
         m:=n;
         while m>0 do
         begin
              sum:=sum+m mod 10;
              m:=m div 10;
         end;
         n:=n-sum;
         inc (rez);
    end;
    writeln (rez);
end.
*****