Сформировать массив из двух минимальных значений каждой нечетной строки матрицы и их индексов

var a: array [1..30,1..30] of integer;
    b: array [1..60] of integer;
    i,j,m,n,k,z, sum, mlt: integer;
 begin
 write('Ââåäèòå êîë-âî ñòðîê --> '); readln(m);
 write('Ââåäèòå êîë-âî ñòîëáöîâ --> '); readln(n);
 
 for i:= 1 to m do  for j:= 1 to n do  begin
   write('Ââåäèòå ýëåìåíò [',i,',',j,'] --> '); readln(a[i,j]);
  end;
 
 for i:= 1 to m do begin
    for j:= 1 to n do write(a[i,j]:3,' ');
    writeln;
   end;
 
 k:=1;
 for i:= 1 to m do begin
   if i mod 2=1 then begin
     b[k]:=a[i,1];
     b[k+1]:=a[i,1];
     b[k+2]:=1;
     b[k+3]:=1;
     for j:= 1 to n do
      if a[i,j]<b[k+2] then
      if (a[i,j]<b[k]) and (b[k]>=b[k+2]) then begin
        b[k]:=a[i,j];
        b[k+1]:=j;
       end else begin
        b[k+2]:=a[i,j];
        b[k+3]:=j;
       end;
      k:=k+4;
     end;
   end;
 
  k:=1;
  for i:= 1 to m do
    if i mod 2=1 then begin
      for j:= 1 to n do begin
        z:=a[i,b[k+1]];
        a[i,b[k+1]]:=a[i,b[k+3]];
        a[i,b[k+3]]:=z;
       end;
      k:=k+4;
     end;
 
  sum:=0;
  mlt:=1;
  for i:= 1 to m do begin
    for j:= 1 to n do begin
      write(a[i,j]:3,' ');
      if a[i,j]<0 then begin
        sum:= sum+a[i,j];
        mlt:= mlt*a[i,j];
       end;
     end;
    writeln;
   end;
 
  writeln('Ñóììà: ',sum,'   Ïðîèçâåäåíèå: ',mlt);
  readln;
 end.