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

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.