Поменять местами в массиве максимальные из четных элементов с минимальными из положительных элементов

const n=10;
var
mas:array[1..n] of integer;
min,max,kmax,i,kmin:integer;
BEGIN
writeln('Ââåäèòå ýëåìåíòû ìàññèâà.');
for i:=1 to n do
  readln(mas[i]);
writeln('Èñõîäíûé ìàññèâ.');
for i:=1 to n do
  write(mas[i]:3);
writeln;
kmin:=mas[1];
kmax:=mas[2];
min:=1;
max:=2;
for i:=1 to n do
  begin
  if (i mod 2=0) then
    begin
    if mas[i]>kmax then
      begin
      kmax:=mas[i];
      max:=i;
      end;
    end
  else
   begin
   if mas[i]<kmin then
     begin
     kmin:=mas[i];
     min:=i;
     end;
    end;
  end;
kmin:=mas[min];
mas[min]:=mas[max];
mas[max]:=kmin;
writeln('Ìàññèâ ïîñëå çàìåíû ìàêñèìàëüíîãî ÷¸òíîãî ýëåìåíòà íà ìèíèìàëüíûé íå÷¸òíûé.');
for i:=1 to n do
  write(mas[i]:3);
readln;
END.

const n=4;
var
mas:array[1..n,1..n] of integer;
i,j,min:integer;
sr,raz:real;
BEGIN
  randomize;
  sr:=0;
  writeln('Матрица:');
  for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      mas[i,j]:=-100+random(201);
      if mas[i,j]>0 then
        min:=mas[i,j];
      if (i mod 2=0) and (j=n) then
        sr:=sr+mas[i,j];
        write(mas[i,j]:4);
      end;
    writeln;
    end;
  sr:=sr/(n div 2);
  for i:=1 to n do
    for j:=1 to n do
      if mas[i,j]>0 then
        if mas[i,j]<min then
          min:=mas[i,j];
  raz:=sr-min;
  writeln('Разница между средним арифметическим чётных элементов последнего столбца и минимальным положительным элементом =',raz:0:2,'.');
  readln;
END.