Отпечатать номера столбцов, в которых второй элемент больше среднего арифметического элементов этого столбца

uses crt;
const n=5; m=6;
var c:array[1..n,1..m]of integer;
i,j:integer;
sr:real;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   c[i,j]:=random(100);
   write(c[i,j]:3);
  end;
  writeln;
 end;
 
 for j:=1 to m do
 begin
  sr:=0;
  for i:=1 to n do sr:=sr+c[i,j];
  sr:=sr/n;
  if sr<c[2,j] then write(j,' ');
 end;
 readln;
end.

uses crt;
var a:array[1..100,1..100] of integer;
    b,c:array[1..100] of integer;
    i,j,n,k,p:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(20)-10;
     Write(a[i,j]:4);
    end;
   Writeln;
  end;
Writeln;
 for i:=1 to n do
  for j:=1 to n do
   begin
    if i<=j then
     begin
      p:=p+1;
      b[p]:=a[i,j];
     end;
    if i>j then
     begin
      k:=k+1;
      c[k]:=a[i,j];
     end;
   end;
Writeln;
 for i:=1 to p do
  Write(b[i]:4);
Writeln;
 for i:=1 to k do
  Write(c[i]:4);
Readln;
end.

uses crt;
const n=6;
var c:array[1..n,1..n]of integer;
a,b:array[1..n*n]of integer;
i,j:integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
   c[i,j]:=random(100);
   write(c[i,j]:3);
  end;
  writeln;
 end;
 
 k:=0;
 for i:=1 to n div 2 do
 for j:=i to n-i+1 do
 begin
  inc(k);
  a[k]:=c[i,j];
 end;
 for i:=1 to k do write(a[i],' ');
 
 k:=0;
 for i:=(n div 2)+1 to n do
 for j:=n-i+1 to i do
 begin
  inc(k);
  b[k]:=c[i,j];
 end;
 for i:=1 to k do write(b[i],' ');
 readln;
end.