С клавиатуры вводится натуральное число N. Найдите и выведите самую большую цифру этого числа.

var n, i, max, next:integer;

begin

repeat

write ('Введите количество чисел n>1 n=');

readln (n);

until n>1;

write ('Введите первое число: ');

readln (max);

writeln ('Введите остальные ', n-1,' чисел:');

for i:=2 to n do

begin

readln (next);

if next>max then max:=next;

end;

write ('max=', max);

end.