Дано натуральное число n определите количество цифр в цифровой записи его числа,которые имеют наибольшее значение пример N=1808,количество чифр с наибольшим значением равно 2(две циры 8)

var n, amount, max_digit, copy_of_n: integer; begin      read(n);      copy_of_n := n;      amount := 0;      max_digit := copy_of_n mod 10;      while copy_of_n <> 0 do      begin                                   {Находим наибольшую цифру в числе}           if max_digit < copy_of_n mod 10           then               max_digit := copy_of_n mod 10;           copy_of_n := copy_of_n div 10;      end;      copy_of_n := n;      while copy_of_n <> 0 do        {Считаем количество таких цифр}      begin           if copy_of_n mod 10 = max_digit           then               amount := amount + 1;           copy_of_n := copy_of_n div 10;      end;      writeln(amount); end.