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

с изъясненьем

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 slt;0 then write(j:3); Проверяем условие задачки
 end;
 end.