Определить, какая цифра в числе встречается чаще всего

Uses CRT;
Var
 Num:integer;
 Ch: byte;
 Arr: Array [0..10] of byte;
 I: integer;
Begin
ClrScr;
Write('Введите число: ');
ReadLn(Num);
If Num<0 then Num:=-Num;
For Ch:=0 to 10 do Begin
Arr[Ch]:=0;
End;
Repeat
i := Num mod 10;
Arr[i]:=Arr[i]+1;
Num := Num div 10;
Until Num=0;
Arr[10]:=Arr[0];
for Ch:= 1 to 9 do begin
if Arr[10]<Arr[Ch] then Arr[10]:=Arr[Ch];
end;
For Ch:=0 to 9 do begin
If arr[ch]=arr[10] then writeLn('Цифра ',ch,' встречается ',arr[ch],' раз');
end;
readkey;
clrscr;
End.

Uses CRT;
Var //думаю вар обьяснять не надо
 Num:integer;
 Ch: byte;
 Arr: Array [0..10] of byte;
 I: integer;
Begin
ClrScr;
Write('Введите число: ');
ReadLn(Num);//считываем число
If Num<0 then Num:=-Num;//если число меньше нуля, делаем его больше нуля
For Ch:=0 to 10 do Begin //заполняем массив возможных цифр в числе(0-9 нулями)
Arr[Ch]:=0;
End;
Repeat 
i := Num mod 10;//записываем в переменную i последнюю цифру
Arr[i]:=Arr[i]+1;//увеличиваем массив для этой цифры
Num := Num div 10;//удаляем последнюю цифру из начального числа
Until Num=0;//все это делаем пока число не кончилось
Arr[10]:=Arr[0];
for Ch:= 1 to 9 do begin // наибольшее кол-во цифр записываем в A[10]
if Arr[10]<Arr[Ch] then Arr[10]:=Arr[Ch];
end;
For Ch:=0 to 9 do begin// пишем ищем это наибольшее и выводим какая это цифра
If arr[ch]=arr[10] then writeLn('Цифра ',ch,' встречается ',arr[ch],' раз');
end;
readkey;//остановка программы до нажатия клавиши
clrscr;//чистим экран
End.

Uses CRT;
{В разделе Var описываем переменные, которые будем использовать}
Var
 Num:integer;{Здесь будет число, которое введет пользователь}
 Ch: byte; {Используется как счетчик цикла}
 Arr: Array [0..10] of byte;{Массив}
 I: integer;
{Начало программы}
Begin
ClrScr;{Очистка экрана куда будут выводиться результаты}
Write('Введите число: ');
ReadLn(Num);{Сохраняем в переменную введеное пользователем число}
If Num<0 then Num:=-Num;{Если введено отрицательное число, то делаем его положительным}
{Обнуляем массив Arr из 11 элементов}
For Ch:=0 to 10 do Begin
Arr[Ch]:=0;
End;
{Закончили обнулять массив}
{Делаем интересную штуку - расчленяем число от пользователя на отдельные цифры:
Делим число на 10. Остаток от деления - и есть интересующая нас цифра.
Цикл делается до тех пор, пока целая часть не равна нулю (цифр в числе больше не осталось)
Пока число расчленяется, цифры считаются в массиве.
Делается следующее: смотрится какая цифра в числе и ячейка в массиве под этим номером увеличивает свое значение на 1 (то есть, если у нас в числе цифра 5, то 5-я ячейка увеличивает свое значение)}
Repeat
i := Num mod 10;
Arr[i]:=Arr[i]+1;
Num := Num div 10;
Until Num=0;
{Цикл закончился. Теперь у нас в массиве записано какое число сколько раз встречается в числе.
То есть, если в 3-ей ячейке стоит цифра 7, то это значит, что тройка встречается в числе 7 раз.}
Arr[10]:=Arr[0];{В последнюю ячейку массива мы записываем минимальное значение, которое находим}
{Теперь в цикле пробегаем по всем ячейкам массива, кроме последней (в ней находится максимальное число раз, которое повторяется одна из цифр).
Если число в ячейке массива больше, чем в последней ячейке, то в последнюю ячейку сохраняется новое число.}
for Ch:= 1 to 9 do begin
if Arr[10]<Arr[Ch] then Arr[10]:=Arr[Ch];{именно здесь идет проверка и, если нужно, замена значения}
end;
{Теперь опять пробегаем по циклу и сравниваем числа в ячейках с числом в последней ячейке. Если они одинаковы, то выводим это число на экран}
For Ch:=0 to 9 do begin
If arr[ch]=arr[10] then writeLn('Цифра ',ch,' встречается ',arr[ch],' раз');
end;
{Все. Дальше наводим красоту}
readkey;{Ждем нажатия любой клавиши на клавиатуре, после чего программа закрывается}
clrscr;{Очищаем экран и уходим}
End.