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

Program ff;

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