нужно! 1. с клавиатуры вводится натуральное число n. найдите и выведете самую большую цифру этого числа. 2. массив целых чисел вводится до нуля. затем вводится число n. определите, какое количество раз число n встречается в массиве.

Программа выводит максимальную цифру числа:
Program maxx;
uses crt;
var x,max:integer;
begin
write('введите число   x=');readln(x);
max:=0;
while x>0 do 
 begin
        if max<(x mod 10) then max:=(x mod 10); 
        x:=x div 10
 end;
writeln('max=',max);
end.