Целочисленная арифметика

[KatruKot]

Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наибольшее значение. Поскажите пожалуйста как исправить код.

var
n,k,min:integer;
begin
cls;
min:=9;
k:=0;
write('Введите число ');
readln(n);
while n<>0 do begin
if n mod 10 >= min then inc(k) else
if n mod 10 < min then
begin
min:=n mod 10;
end;
n:= n div 10;
end;
writeln('Количество наибольших элементов ',k);
end.

[KatruKot]

Когда преподавателю показал, задал мне число 23453, вот тут у меня и возникла ошибка... а вот например число 1808 считает спокойно выдаёт 2.

[JinglsOrg]

у вас лишняя строчка: "if n mod 10 < min then", т.к. если n mod 10 не больше и не равен min'у (о чём сообщает строчка выше), то уже очевидно что он меньше. Но она у вас не лишняя т.к. строчна над ней не правильна..
Если я правильно понял то нужно подсчитать кол-во самых больших цифр в числе?
В таком случае вам нуден не min, а max.
Замените знак "больше или равно" на равно, ведьь вам нужно подсчитать только одинаковые числа.
Замените знак меньше на больше в строке "if n mod 10 < min then" т.к. вам нужны самые большие числа.
Если программа нашла цифру больше, то нужно сбить счётчик "k", т.к. вам нужны только кол-во одной цифры, а не всех чисел которые больше всех чисел стоящих справа от них.

Ваша же программа находит кол-во чисел слева от наименьшего числа находящегося как можно правей. Т.е. т.к. у вас 0 - наименьшее число, программа считает кол-во цифр слева от него. Ну и ещё т.к. счётчик не сбивается она прибавляет результаты предыдущих вычислений.
Например: 999069 она тоже "как бы" правильно подсчитает.