Вопрос по подпрограммам в Паскале

[Elabrion]

Здравствуйте!
Вобщем проблемма такова, начали учить подпрограммы и на паре разобрали пример с одномерным массивом, а мое задание с двумерным. Битый час сижу уже никак разобраться не могу! Приведу текст задания, буду благодарен за любую помощь! Если возможно, напишите хотябы одну подпрограмму, а дальше я по аналогии.
Заранее спасибо!

Дана матрица размером m*n. Дописать в матрицу снизу сначала одну строчку, каждый элемент которой равняется сумме положительных элементов соответствующих столбцов, а затем еще одну строку- каждый элемент которой равняется сумме положительных элементов соответствующих столбцов уже измененной матрицы. Упорядочить новые строки матрицы в порядке возростания. Найти максимальный элемент исходной и измененной матрицы.

[Step_UA]

Const m=3; n=8;
Type TMas=array [1..m+2,1..n] of integer;
...
Procedure Add_Line(var A:Tmas;var Rows:integer);
 var i,j:integer;
 begin
  rows:=rows+1; {количество строк в массиве}
  for i:=1 to n do {проход по столбцам}
   begin
    a[rows,i]:=0;
    for j:=1 to rows-1 do {все строки в i-м столбце}
      if a[j,i]>0 then a[rows,i]:=a[rows,i]+a[j,i]
   end;
 end;

не проверял ...

[VadikV]

ну так покажи, что ты сам уже написал, а мы подправим и подскажем

[Elabrion]

я нарисовал блок-схему для подпрограммы расчета максимального элемента, но не могу понять как ее применить второй раз, когда в матрице уже будет m+2 строк.
P.S. в чем вся суть, без подпрограмм уже давно сделал, а с ними застрял намертво. зачем они вообще нужны..