Здрасти, задали задачу, но в ней практически ничего не сообразил:Паскаль. Введите

Здрасти, задали задачку, но в ней практически ничего не понял:
Паскаль. Введите хоть какое число и выведите на экран наивеличайшую цифру в числе.
К примеру ввожу 5683, а он мне обязан вывести: 8.
Начало программки я допер:
program z1;
var n:integer;
begin
K:=0;
writeln('Введите хоть какое число');
readln(n);
while nlt;gt;o do begin
n:=n div 10;
k:=k+1;
end;
... Тем самым мы отыскали количество цифр в числе, а вот что делать далее я не знаю(