Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших разрядах данного числа. (программа Паскаль)

var x:longint;
    i,k,kmax:integer;
begin
 writeln('x=?');
 readln(x);
 kmax:=0;
 k:=0;
 while x>0 do
  begin
   if x mod 10 = 0
    then inc(k)
    else
     begin
      if k>kmax
       then kmax:=k;
      k:=0
     end;
   x:=x div 10
  end;
  writeln(kmax)
end.