Найти минимальный элемент среди элементов, расположенных на нечетных позициях массива

var
   a : array[1..5, 1..5] of integer;
   b : array[1..5] of integer;
   i, j : integer;
begin
   for i := 1 to 5 do begin
      for j := 1 to 5 do begin
         write('a[', i, ', ', j, '] = '); readln(a[i, j])
      end;
      b[i] := a[1, i];
   end;
   
   for i := 1 to 5 do
      for j := 2 to 5 do
         if b[i] < a[j, i] then b[i] := a[j, i];
   
   write('Результат: ');
   for i := 1 to 5 do
      write(b[i], ' ');
   writeln
end.

  uses TpCrt;
  var
    A   : array[1..6,1..6] of integer;
    x,b : Integer;
    i,j,storej : Byte;
 
  Begin
    Randomize; storej:=0;
    Write('Введи число B ');Readln(b);
    for i:=1 to 6 do begin
      for j:=1 to 6 do begin
        A[i,j]:=random(50)-10; write(a[i,j]:8);
        if A[i,j]=B then storej:=j;
      end;
      writeln;
    end;
    X:=0;
    if storej<>0 then begin
      if storej<2 then Writeln('Число стоит в 1 колонке, слева элементов нет!')
      else begin
        for j:=1 to storej-1 do for i:=1 to 6 do
          if A[i,j]>0 then X:=X+A[i,j];
      end;
    end;
    Writeln(' X= ',x);
    Readln;
  End.

  var
    A       : Array[1..15] of Integer;
    Min,P   : Integer;
    i,j,kol : Byte;
 
 
  Begin
    Randomize;
    min:=maxint; P:=1; kol:=0;
    Writeln('massiv A(15):');
    for i:=1 to 15 do begin
      a[i]:=random(15)-7; Write(a[i]:4);
      if odd(i) then if a[i]<min then begin
        min:=A[i];
        j:=i;  
      end;
    end;
    Writeln; Writeln('Мин эелементна позиции ',j,' равен ',min);
    if j=15 then Writeln('нет элементов для произведения')
            else begin
              for i:=j+1 to 15 do if A[i]<>0 then begin
                p:=p*a[i]; inc(kol);
              end;
              Writeln('количество ненулевых ',kol,' произведение =',p);
            end;
    Readln;
  End.