Решить задачи по Turbo Pascal

Дан массив [M]

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

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

  прекращается после нажатия на клавиатуре точки. Посчитать количество

  цифр в этом тексте.

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

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