Решить задачу на языке Pascal

Дан массив M - [ { м [i, j] }, i=1,10; j=1,10 ]

(элементы выбираются случайным образом):

• Вывести номера не нулевых элементов.
• Посчитать количество нулевых элементов.
• Записать в этот же массив сначала все отрицательные числа и нули, затем все положительные, сохраняя порядок их следования.
• Найти сумму отрицательных элементов главной диагонали.
• Найти min- элемент 1-го столбца.
• Найти первую цифру в целом положительном числе.
• С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитать количество цифр в этом тексте.

Если невозможно выполнить тот или иной пункт, то необходимо выдать соответствующее сообщение.

Задания под номерами 1 и 4 выполнить в виде подпрограммы.