Дана матрица размерности N на M. Вывести номера всех столбцов матрицы, не содержащих отрицательных элементов. Помогите Ребята очень надо 

uses crt; const N=4;       M=6; var a: array [1..n,1..m] of integer;     x,y,k: integer; begin      for x:=1 to n do begin          for y:=1 to m do begin              a[x,y]:=random(21)-10;              write(a[x,y]:4);          end;          writeln;      end;      for y:=1 to m do begin          k:=0;          for x:=1 to n do              if a[x,y]<0 then inc(k);          if k=0 then writeln(y);      end; end.