program task;
var
  a: array[1..10, 1..10] of real; //Думаю наиболее разумный способ задать двухмерный массив в данной задаче, написать фиксированный максимальный размер массива 10x10. Кроме того, в условии сказано использовать действительные числа, а не целые. Значит вместо integer нужно использовать, например, real.
  n, i, j: integer; //Оставим только те, которые используем.
begin
  randomize;
  write ('введите n= ');
  read(n);
  //write ('введите m= '); Массив "квадратный", значит m не нужно.
  //read(m);
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(20)-10;
  writeln('матрица а=');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln( );
  end;
  //Далее необходимо написать нахождение среднего арифметического.
  //В паскале в цикле for нельзя задать увеличение счетчика на произвольную величину, значит удобнее использовать цикл while.
  i:=2;
  while i<=n do
  begin
    //Здесь нужно посчитать сумму элементов столбца.
  i:=i+2; //Увеличили номер столбца на 2
  end;
end. //Не хватает