Помогите пожалуйста!!
Дан двумерный массив ,выдать на печать номера столбцов ,в которых среднее арифметическое элементов столбца отрицательное. Заранее спасибо

program n1;   uses crt;const nn=1000;var      m: array[1..nn,1..nn] of integer;     n,i,j: integer;      s: real;begin    clrscr;    randomize;//Определяем размеры массиваwriteln('Введите размерность'); readln(n);//Заполняем массив рандомными числасламиfor i:=1 to n do   for j:=1 to n do m[i,j]:=random(100)-50;//Выводим таблицу(массив) на экранfor i:=1 to n do begin  for j:=1 to n do write(m[i,j]:4);  writeln; end;//Считаем среднее арифметическое столбцов и выводим номераfor j:=1 to n do begin   s:=0; {Обнуляем переменную перед началом каждого вложенного цикла}      for i:=1 to n do begin           s:=s+m[i,j]; {Считаем сумму элементов столбца}      end;   s:=s/n; {Считаем среднее арифметическое}  if s<0 then write(j:3); {Проверяем условие задачи} end; end.