Задано число определить количество одинаковых цифр в нем (Паскаль и цикл while) 8 класс посчитайте

program Hello;

var number,val:integer;

begin

readln(number);

readln(val);

while(number<>0)

do

begin

if number mod 10 = val then

begin

val:= val + 1;

end;

number:= number div 10;

end;

writeln(val);

end.