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

program prog;
 
function GetSumDigits(ch:integer):integer;
var S: integer;
begin
S:=0;
while(ch<>0)do
 begin
 inc(S,ch mod 10);
 ch:=ch div 10;
 end;
GetSumDigits:=S;
end;
 
var chislo, count: integer;
begin
writeln('Введите число');
readln(chislo);
count:=0;
while (chislo>0) do
 begin
 dec(chislo, GetSumDigits(chislo));
 inc(count);
 end;
writeln('Нужно действий: ', count);
readln;
end.