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

const n = 10; m = 5;
type
    type_numbers = array[1..n] of integer;
    type_arr = array[1..m] of type_numbers;
    type_average = array[1..m] of real;
var
    arr: type_arr; {array of arrays}
    average: type_average; {array of averages}
    i,j: byte;
 
function fill_array():type_numbers;
var i:byte; a:type_numbers;
begin
    for i:=1 to n do a[i]:=random(50)+1;
    fill_array := a;
end;
 
function found_average(a:type_numbers):real;
var i:byte; sum:integer;
begin
    sum := 0;
    for i:=1 to n do sum:=sum+a[i];
    found_average := sum / n;
end;
 
begin
    randomize;
    for i:=1 to m do arr[i] := fill_array();
    for i:=1 to m do begin
        for j:=1 to n do write(arr[i,j]:3);
        average[i]:=found_average(arr[i]);
        writeln(' -- ', average[i]:6:2);
    end;
readln
end.