Двумерный массив. Найти среднее арифметическое элементов ,имеющих нечетное значение. Найти минимум 2 строки

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax*nmax] of integer;
    i,j,min,max,n,s,k:integer;
begin
 repeat
  write('Ðàçìåð ìàòðèöè n=');
  readln(n);
 until n in [1..nmax];
 max:=-100;min:=100;k:=1;
 writeln('Èñõîäíûé ìàññèâ :') ;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=-20+random(41);
      write(a[i,j]:4);
       if a[2,j]<min then
        min:=a[2,j];
       if a[i,j]>max then
        max:=a[i,j];
       if a[i,j] mod 2<>0 then
        s:=s+a[i,j];
       if a[i,j]<0 then
        begin
         b[k]:=a[i,j];
         inc(k);
        end;
     end;
    writeln;
   end;
  writeln('Ìèíèìàëüíûé ýëåìåíò âòîðîé ñòðîêè = ',min);
   writeln('Ñðåäíåå àðèôìåòè÷åñêîå ýëåìåíòîâ ,èìåþùèõ íå÷åòíîå çíà÷åíèå = ',s/2:0:2);
  writeln('Ìàêñèìàëüíûé ýëåìåíò = ',max);
   writeln('Ìàññèâ îòðèöàòåëüíûõ ýëåìåíòîâ :');
  for i:=1 to k-1 do
   write(b[i]:4);
end.