Выяснить, сколько раз в натуральном числе встречается его максимальная цифра. например в числе 581088 - 3 раза, в числе 4537 - 1 раз. сделать нужно через while или repeat until. желательно с объяснениями

Var k, s, i: integer; beginreadln(k); s: =k mod 10; i: =0; while k< > 0 do begin k: =k div 10; if s< k mod 10 then  begins: =k mod 10; i: =0; end; if s=k mod 10 theni: =i+1; end; writeln(i); end. в переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число var k, s, i: integer; beginreadln(k); //вводим числоs: =k mod 10; //предполагаем что последняя цифра - максимальнаяi: =0; // инициализируем счетчик нулемwhile k< > 0 do begin//цикл идет до тех пор пока не закончатся цифры в k k: =k div 10; // отбрасываем цифру  от числа if s< k mod 10 then //если s < последней цифры kbegins: =k mod 10; //то меняем нашу максимальную цифру на новуюi: =0; // и сбрасываем счетчикend; if s=k mod 10 then// если цифра в числе равна максимальной цифреi: =i+1; //прибавляем 1 к счетчикend; writeln(i); //выводим количество вхождений максимальной цифры  end.

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.