Нахождение старшей цифре в числе

uses crt;
var s,sb: string;                      //переменная с - для числа, сб - для старшей цифры
    i,k: integer;                      //и - счетчик для строки, к - для количества старших букв
begin
write ('Введите число ');             //запрашиваю и считываю в память слово
readln (s);
sb:=s[1];                             //изначально предполагаю, что старшая цифра находится на первом месте
k:=1;                                 //количество старших цифр изначально = 1 (то есть первой цифре)
for i:=2 to length(s) do              //запускаю цикл для перебора всех символов строки
    if s[i]>sb then                   //если данный символ больше старшей цифры, то
       begin
       sb:=s[i];                      //старшей цифрой назначаю данный символ
       k:=1;                          //счетчик старших цифр снова приравниваю 1 (то есть найденной новой старшей цифре)
       end
       else if s[i]=sb then inc(k);   //иначе если символ равен таршей цифре, увеличиваю счетчик на 1
writeln ('Старшая цифра ',sb,' встречается ',k,' раз(а)');    //вывожу ответ
end.

uses crt;
var n:longint;                //переменная для числа
    c,cmax,kmax: integer;     //переменные для цифры, старшей цифры, количества старших цифр
begin
write('Введите число ');      //запрашиваю и записываю в память число
readln(n);
cmax:=0; kmax:=0;             //изначально старшая цифра =0(меньше некуда), а количество - 0
while n>=1 do                  //пока n не равно 1 или меньше
      begin
      c:=n mod 10;             //узнаю остаток деления числа на 10 (последняя цифра)
      if c>cmax then           //если она больше предыдущей старшей, то
         begin                //назначаю ее старшей
         cmax:=c;             //количество назначаю 1(то есть она и есть первая)
         kmax:=1;
         end
         else if c=cmax then inc(kmax);  //иначе если цифра равна старшей, увеличиваю количество старших на 1
      n:=n div 10;            //n делю на 10 без остатка, чтобы перейти к следующей цифре
      end;
writeln ('Старшая цифра = ',cmax,' встречается ',kmax,' раз(а)');     //вывожду результат
readln;
end.