Задачка на двумерные массивы в паскале

[Venesia]

очень прошу помочь в решении этой задачи,осталась одна,не знаю с какой стороны за нее браться....(((
Текст задачи:в двумерном массиве последний отрицательный элемент каждого стобца заменить нулём.
начало знаю:
program pr_1;
uses crt;
const n=3,m=4;
var a:array [1..n,1..m] of integer;
i,j;integer;  {может здесь еще какая-то переменная нужна?}
begin
clrscr;
randomize;
for i:=1 to n do
for j:= 1 to m do
a[i,j]:=random(100)-50;
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:4);
writeln;
end;
а вот дальше ума не приложу как писать.....

[@len@_k]

Это только задание двумерного массива и его вывод, а не начало решения.
Посчитайте, сколько столбцов в массиве, Организуйте цикл с использованием этого числа,  Двигайтесь снизу вверх, ищите первый отрицательный, заменяйте нулем. Как-то так