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

Спасибо большое! А вторую задачу?)

во второй задаче не совсем корректное условие, нет условия окончания ввода массива или конкретного числа элементов массива

программа выводит максимальную цифру числа:Program maxx;uses crt;var x,max:integer;beginwrite('введите число   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.