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

var n,i,max,next:integer;beginrepeatwrite(\'Введите количество чисел 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.