Интересная задачка!!!! помогите!!!!!

[Artom]

Дан квадратный двумерный массив размером М на М, где М - чётное число. Найти среднее арифметическое нечётных положительных элементов в указанном секторе(массив разделён по вертикале, нам нужна вторая правая его часть). Ввод элементов исходного массива с клавиатуры, вывод исходного массива и результатов осуществляется в файл.

[DM_bite]

const n=10;
  var a:array [1..n,1..n] of integer;
      i,j,k:integer;
      sum,sr:real;
begin
  k:=0;
  sum:=0;
  for i := 1 to n do
  for j := 1 to n do
    begin
      ReadLn(a[i,j]);
    end;
    for i := 1 to n do
    begin
  for j := 1 to n do
    begin
      Write(a[i,j],'__');
    end;
    WriteLn;
    end;
    for i := 1 to n do
  for j := n div 2 to n do
    begin
      if (a[i,j]>0) and not (a[i,j] mod 2 = 0) then
       begin
         inc(k);
         sum:= sum+a[i,j];
       end;
    end;
    sr:= sum/k;
    WriteLn(sr);
    ReadLn;
end.

Ничего интересного.