Найти в числе наибольшую цифру, и оценить сложность алгоритма Опции

[DmP]

Задача :
Найти в числе, введенном с клавиатуры, наибольшую цифру и оценить сложность данного алгоритма

У меня это так :

Код

Program z;
uses crt;
var m,n: integer;
   i,max,ost : shortint;
begin
clrscr;
writeln('Введите число : ');
readln(n);
m:=n;
max:=1; i:=0;
while n>0 do
 begin
  inc(i);
  ost:=n mod 10;
  n:=n div 10;
  if ost>max then max:=ost;
 end;
writeLn('Наибольшая цифра в числе ',m,' цифра ',max);
readkey;
end.

А какую сложность имеет этот алгоритм понятия не имею
Если у кого есть - киньте, плиз, ссылочку где толково написано про оценку сложности алгоритмов, или помогите оценить этот.