Решите, , по информатике в паскале abc! задан массив, с случайных чисел из 15 элементов, найти максимальный элемент среди положительных, минимальный элемент среди нечетных. найти максимальный и минимальный элементы среди нечетных элементов массива. какое из них стоит раньше?

Const 
  N = 15;

var
  mas:array[1..15] of integer;
  i, max1, max2, min, c, d:integer;

begin
  c:=-1;
  max1:=-maxint;
  min:=maxint;
  max2:=-maxint;
  randomize;
  for i:=1 to N do
    mas[i]:=random(101)-50;
  write('Массив: ');
  for i:=1 to N do
    write(mas[i], ' ');
  writeln;
  for i:=1 to N do
  begin
    if (mas[i]>0) AND (mas[i]>max1) then
      max1:=mas[i];
   if (mas[i] mod 2 <> 0) AND (max2<mas[i]) then
   begin
     c:=i;
     max2:=mas[i];
   end;
   if (mas[i] mod 2 <> 0) AND (min>mas[i]) then
   begin
     d:=i;
     min:=mas[i];
   end;
  end;
  writeln('Максимальный положительный элемент: ',max1);
  writeln('Минимальный нечетный элемент: ',min);
  writeln('Максимальный нечетный элемент: ',max2);
  if c<d then
    writeln('Максимальный элемент стоит раньше')
  else
   writeln('Минимальный элемент стоит раньше');
end.

Const  amax=20;
var  a: array[1..amax,1..amax] of integer; 
i,j,k,n,m: byte;
begin 
write('Введите размеры массива(матрицы (<20)):'); 
 readln(n,m); 
 writeln('Массив(матрица):');
  for i:=1 to n do  begin   
 for j:=1 to m do    begin      a[i,j]:=random(99)+1;   
  write(a[i,j]:4);   
 end;   
 writeln; 
 end; 
 writeln('Кол-во четных элементов по колонкам:'); 
 for j:=1 to m do 
 begin   
 k:=0;   
 for i:=1 to n do   
  if odd(a[i,j])=false then inc(k);   
writeln('В ',j,' столбце ',k); 
 end; 
 writeln('Конец программы!');
end.

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица[',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4);
  for var i:=0 to m-1 do
  for var j:=0 to n-1 do
    if a[i,j].IsEven then a[i,j]:=1;
  Writeln('*** Результирующая матрица[',m,',',n,'] ***');
  a.Println(4);
end.

Пример
Количество строк в матрице: 6
Количество столбцов в матрице: 9
*** Исходная матрица[6,9] ***
  23 -23 -25  38  40  38  50  45 -35
 -41  31   2  30  37 -30  -9  -8 -28
 -12  20 -20  32  29   7  19  23  46
 -48 -21 -27  19  10 -17 -20 -27 -47
 -39 -11  19 -23   9   6  29 -24 -14
   2  -7  37 -22  38  23   5 -33  37
*** Результирующая матрица[6,9] ***
  23 -23 -25   1   1   1   1  45 -35
 -41  31   1   1  37   1  -9   1   1
   1   1   1   1  29   7  19  23   1
   1 -21 -27  19   1 -17   1 -27 -47
 -39 -11  19 -23   9   1  29   1   1
   1  -7  37   1   1  23   5 -33  37