Создать одномерный массив элементы которого среднеарифметические значения столбцов матрицы

[Playersum]

Задана матрица (4*5).Создать одномерный массив элементы которого среднеарифметические значения столбцов матрицы.
Прога пашет чюток не так как надо .вот мой код

program Project66_2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

{66.	Задано матрицю цілих чисел (4*5). Сформувати одновимірний масив,
елементи якого середньоарифметичні значення матриці по стовпчиках}
const
n=4;
m=5;
var
x:array[1..n,1..m]of integer;
y:array[1..m]of real;
i,j,k:integer;

function SerAr(t:integer):real;
var i,sum:integer;
begin
sum:=0;
for i:=1 to n do
sum:=sum+x[i,t];
serar:=sum/n;
end;
begin
writeln('matryca 4*5');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
x[i,j]:=random(9);
write(x[i,j],' ');
end;
writeln;
end;
writeln;
write('o m');
writeln;
for k:=1 to m do
 write(k,'=',serar(k):0:2,' ');
readln;
end.

[Ghost of Night]

Во-первых, код оформлять нужно. А во-вторых, помоему, эта прога считает среднее не столбца и строки

[Hacker19_90]

Что значит

Прога пашет чюток не так как надо

???
Как написали так и пашет! Что вам конкретно не нравится в ней?

Или вы предлагаете нам

#include <telepat.h>

??

[Playersum]

Пацики-спасибо вам крнечно))))я уже решил её)))....
просто в универе одна штука не работала-сделал так же дома всё работает)))