Помогите сделать задание на паскале. Дано натуральное число,найдите максимальную цифру.

Program maxzna4;

var n,k:integer;

begin

readln(n);

k:=n mod 10;

while n>0 do begin

     n:=n div 10;

     if k<(n mod 10) then k:=n mod 10;

     if k=9 then break;

end;

writeln(k);

end.