Сформировать вектор, каждый элемент которого есть среднее арифметическое элементов соответствующего столбца матрицы

program Project1;
 
uses
  CRT;
const
  maxrow = 4;
  maxcol = 3;
var
  z: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  x: array[1..maxcol] of real; { Переменная для хранения вектора}
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  sum: integer; { Переменная для хранения значения суммы}
begin
  for i:= 1 to maxrow do
    for j:= 1 to maxcol do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(z[i,j]);     { Ввод значений в двумерный массив.}
    end;
  clrscr;
  writeln('Исходный двумерный массив: ');
  for i:= 1 to maxrow do
    begin
      for j:= 1 to maxcol do
        write(z[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  writeln('Вектор из среднего арифметического столбцов двумерного массива: ');
  for j:= 1 to maxcol do
     begin
       sum:= 0;
       for i:= 1 to maxrow do
         sum:= sum + z[i,j];    { Вычисление суммы элементов столбца}
       x[j]:= sum/maxrow;       { Вычисление среднего арифметического каждого столбца двумерного массива}
       write(x[j]:0:2,'  ');    { Вывод вектора в консоль.}
     end;
  Readln;
end.