Помогите решить две задачи на матрицы (Turbo Pascal)

[cinik]

№1
Дана матрица из 3 строк и 7 столбцов,соответствующая учётной ведомости материалов,первый элемент каждого столбца должен соответствовать количеству поступившего материала,второй элемент - израсходованую его часть,а третий - остаток.Опечатать номера тех столбцов,в которых третий элемент не равен разности двух элементов и число таких столбцов.
№2
Дана матрица A,состоящая из m строк и n столбцов.Изменить матрицу,прибавляя к каждому отрицательному элементу значение придыдущего элемента той же строки.Если отрицателен первый элемент строки,прибавить к нему значение последнего элемента строки.

[Chudo4258]

2

for i:=1 to n do
 for j:=1 to m do
  if A[i,j]<0 then
                 if j=1 then A[i,j]:=A[i,j]+A[i,m]
                         else A[i,j]:=A[i,j]+A[i,j-1];