работа с матрицей(оформление в виде процедуры)

[1евгений1]

Дана матрица (8*8). Найти среднее арифметическое каждого столбца. (оформить в виде процедуры).

подскажите с оформлением...серьезные затруднения вызывает

[Valio]

А как программа выглядит без процедуры?

[1евгений1]

program mass;
uses crt;
type mm=array[1..100,1..100]of integer;

var i,j,min,max,m,n:integer;
k:mm;

function SummSr(t:integer):real;
var i,sum:integer;
begin
sum:=0;
for i:=1 to m do sum:=sum+k[i,t];
summsr:=sum/m;
end;

procedure ChangeRow(c1,c2:integer);
var i,j,b:integer;
begin
for i:=1 to m do
begin
b:=k[i,c1];
k[i,c1]:=k[i,c2];
k[i,c2]:=b;
end;
end;

begin
clrscr;
randomize;
writeln('Vvedite razmernost'' (M,N):');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
begin
k[i,j]:=random(41);
end;

writeln('Massiv :');
for i:=1 to m do
begin
for j:=1 to n do write(k[i,j]:2,' ');
writeln;
end;
for i:=1 to n do writeln('Srednee znachenie stolbca #',i,' = ',SummSr(i):0:2);

readln;
end.



вот вид программы