Двумерные массивы

[NagareBoshi]

Люди добрые, помогите, пожалуйста, решить задачу по двумерным массивам.
Дан двумерный массив, содержащий 3 строки и 4 столбца. Элементами массива являются целые числа. Элементы каждого из столбцов увеличить на найденное максимальное значение этого столбца. Результат получить в другом массиве.
Заранее спасибо.

[VadikV]

Покажи свои наработки по этой задаче и получишь помощь.

[NagareBoshi]

Увы, все мои наработки сводятся к созданию массива и нахождению наибольшего элемента.

Program zadacha;
Var A:array[1..3, 1..4] of integer;
    i,j,k:integer;
Begin
WriteLn('Массив');
For i:=1 to 3 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random(100);
Write(A[i,j]:4);
End;
WriteLn;
k:=A[1,j];
End;
for i:=1 to 3 do
Begin
For j:=1 to 4 do
Begin
if A[1,j]>k then k:=A[1,j];
End;
End;
WriteLn('Наибольший элемент первой строки', k:4);
End.