Обработка двумерных массивов

uses crt;
var a:array[1..50,1..50]of integer;
i,j,n,m,k1,k2:integer;
 
function sum_col(k:integer):integer;
var i:integer;
begin
 sum_col:=0;
 for i:=1 to n do sum_col:=sum_col+a[i,k];
end;
 
function sum_row(k:integer):integer;
var i:integer;
begin
 sum_row:=0;
 for i:=1 to m do sum_row:=sum_row+a[k,i];
end;
 
begin
 clrscr;
 randomize;
 write('N M -> ');
 readln(n, m);
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 write('Номер строки и столбца -> ');
 readln(k1,k2);
 writeln('Столбец ',k1,' = ',sum_col(k1));
 writeln('Строка ',k2,' = ',sum_row(k2));
 readln;
end.

program tmp;
uses crt;
const
  count=100;
var
  i,j,m,n,k:integer;
  avr,s:real;
  mas:array[1..count,1..count] of real;
begin
  clrscr;
  randomize;
  repeat
  write('i,j: '); readln(i,j);
  until (i<=10) and (j<=15);
  clrscr;
  for m:=1 to i do begin
  for n:=1 to j do readln(mas[m,n]);
                   writeln;
                   end;
  clrscr;
  for m:=1 to i do begin
  for n:=1 to j do write(mas[m,n]:2:2,' ');
                   writeln;
                   end;
 writeln;
 s:=0;
 k:=0;
 for m:=1 to j do if odd(m) then
     for n:=1 to i do begin
                      s:=mas[n,m]+s;
                      inc(k);
                      end;
                      writeln;
avr:=s/k;
writeln(avr:2:2);
readkey;
end.