Решить задачи на Pascal

1. Имеется файл, в котором содержится размерность массива и его элементы. Вычислить:

A. номер максимального по модулю элемента массива;

B. сумму элементов массива, расположенных после первого положительного элемента.

Полученные результаты записать в новый файл.

2. Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями (оформить в виде процедуры).

Найти номер первой из строк, содержащих хотя бы один положительный элемент (оформить в виде функции).