Дано x - целое, шестиразрядное число. Посчитать количество цифр в этом числе больше 5. Делать в паскале

program ff;varx, counter:integer;beginwrite('Введите число: ');readln(x);while x > 0 dobegin  if (x mod 10) > 5 then counter:=counter+1;  x := x div 10;end;writeln('Цифр больше 5: 'counter);readln();end.