Tablice wielowymiarowe w Turbo Pascalu

Od kilku godzin siedzę nad zadaniem w technologii Turbo Pascala i nie mogę "wpaść" na pewien algorym. Mianowicie, jak w programie, który zawiera tablicę o wymiarach MxN wypelnionej losowymi wartościami z zakresu <-3; 10> napisać procedurę, która wyświetli na ekranie tylko te kolumny, które nie zawierają wartości ujemnych? M-oznacza kolumny.
Fragment programu, który napisałem wygląda tak:

PROGRAM tabl;
const N=5;
M=3;
type Wiersz=array[0..N-1] of integer;
type Tablica=array[0..M-1] of Wiersz;

PROCEDURE zapelnij(var t: Tablica); {procedura wypełnia tablice MxN losowymi wartościami z zakresu <-3 do 10>}
var i,j: integer;
begin
for j:=0 to M-1 do
for i:=0 to N-1 do
t[j,i]:=(10 - random(14));
end;

PROCEDURE wypiszKolumny(t: Tablica);
var i,j: integer;
for i:=0 to N-1 do
for j:=0 to M-1 do
..........
..........
..........

var Tab: Tablica;
BEGIN
zapelnij(Tab);
wypiszKolumny(Tab);
END.

Czy ktoś wie, w jaki sposób rozwiązać to zadanie?

Pozdrawiam
essx

musisz najpierw sprawdzić całą i-tą kolumnę czy nie ma wartości ujemnych i jak nie ma to drugi raz pętla z wyświetleniem jej, coś na kształt

for i := 1 to n do
begin
  Ujemna := False;
  j := 1;
  while (not Ujemna) and (j <= m) do
  begin
    if [i, j] < 0 then
      Ujemna := True;
    inc (j);
  end;
  if not Ujemna then
    WyswietlKolumne(i);
end;

Dziękuję :)