В матрице определить среднее арифметическое значение чисел в столбцах,

uses crt;
var a:array[1..15,1..15] of integer;
i,j,r,q,n,m,start,kol:integer;
sr1,sr2:real;
begin
clrscr;
write('Ââåäèòå êîë-âî ñòðîê ìàòðèöû=');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ=');
readln(m);
if (odd(m)=true) then start:=m div 2+2 else
start:=m div 2+1;
writeln('Èñõîäíàÿ ìàòðèöà');
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(51);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to (m div 2) do
 for j:=1 to n do
  begin
   sr1:=sr1+a[i,j];
   kol:=kol+1;
  end;
writeln('Ñðåäíåå àðèôìåòè÷åñêîå ëåâîé ÷àñòè ìàòðèöû ',sr1/kol);
kol:=0;
for i:=1 to n do
 for j:=start to m do
  begin
   sr2:=sr2+a[i,j];
   kol:=kol+1;
  end;
writeln('Ñðåäíåå àðèôìåòè÷åñêîå ïðàâîé ÷àñòè ìàòðèöû ',sr2/kol);
if (sr1<sr2) then
 begin
  for j:=1 to m div 2 do
   for i:=1 to m do
    begin
     r:=a[i,j];
     a[i,j]:=a[i,m-j+1];
     a[i,m-j+1]:=r;
    end;
 writeln('Ïåðåñòàíîâêà ñòîëáöîâ ìàòðèöû');
  for i:=1 to n do
   begin
    for j:=1 to m do
     write(a[i,j]:3);
    writeln;
   end;
 end;
readln
end.

if (odd(m)=true) then start:=m div 2+2 else
start:=m div 2+1;

if (odd(m)=true) then start:=m div 2+2 else
start:=m div 2+1;