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

uses crt;
type arr=array[1..100] of integer;
var a:arr;
    k:byte;
 
procedure Input(var a:arr; var n:byte);
var i:byte;
begin
Write('n=');
Readln(n);
Randomize;
for i:=1 to n do
 a[i]:=random(20)-10;
end;
 
procedure Rab(a:arr; n:byte);
var min1,min2,imin1,imin2,i:integer;
begin
min1:=a[2];
imin1:=2;
min2:=a[1];
imin2:=1;
 for i:=1 to n do
  if i mod 2=0 then
  begin
   if a[i]<min2 then
   begin
    min1:=a[i];
    imin1:=i;
   end;
  end
  else
   begin
    if a[i]<min2 then
     begin
      min2:=a[i];
      imin2:=i;
     end;
   end;
Writeln('Min1 ',min1,' [',imin1,']');
Writeln('Min2 ',min2,' [',imin2,']');
if imin1<imin2 then
 begin
  for i:=imin1+1 to imin2-1 do
   a[i]:=i;
 end
else
 begin
  for i:=imin2+1 to imin1-1 do
   a[i]:=i;
 end;
Writeln;
for i:=1 to n do
 Write(a[i],'  ');
end;
 
procedure Output(a:arr; n:byte);
var i:byte;
begin
for i:=1 to n do
 Write(a[i],'  ');
end;
 
begin
ClrScr;
Input(a,k);
Output(a,k);
Writeln;
Rab(a,k);
Readln;
end.

program laba12;
uses crt;
type
    mas=array [1..100] of integer;
var t:mas; n,a,b,j,yes:integer;
procedure prouzv(n:integer; var t:mas);
var i:integer;
begin
     for i:=1 to n do
     t[i]:=random(100);
     yes:=1
end;
procedure VVod(n:integer; var t:mas);
var i:integer;
begin
     for i:=1 to n do
     read(t[i])
end;
procedure VbIVod(n:integer; var t:mas);
var i:integer;
begin
     for i:=1 to n do
     write(t[i]:3)
end;
procedure poucK(n:integer; var t:mas);
var  i,j,l,h,min4,minN4:integer;
begin
     min4:=t[2];
     for i:=3 to n do begin
     if i mod 2 = 0 then begin
     if t[i]<min4 then begin min4:=t[i]; b:=i end;  end; end;
     minN4:=t[1];
     for j:=2 to n do begin
     if j mod 2 <> 0 then begin
     if t[j]<minN4 then begin minN4:=t[j]; a:=j end; end; end;
     if b<a then begin
     for l:=b to a do begin
     t[l]:=l end end
     else
     begin
     if b>a then begin
     for h:=a to b do begin
     t[h]:=h  end; end; end;
end;
begin
     clrscr;
     randomize;
     yes:=0;
     write('KoJlu4ecTBo eJleMeHToB MaccuBa: '); readln(n);
     repeat
     writeln('1. BBoD MaccuBa');
     writeln('2. BBbIBoD MaccuBa B cTpoKy');
     writeln('3. Нахождение минимального элемента');
     writeln('4. KoHelL pa6oTbI');
     readln(a);
     case a of
     1: begin VVod(n,t);  yes:=1 end;
     2: begin if yes=0
              then begin
                        prouzv(n,t); VbIVod(n,t);
                        yes:=1; writeln
                   end else
              begin
                   VbIVod(n,t); writeln
              end
        end;
     3: begin if yes=0
              then begin
                        prouzv(n,t); VbIVod(n,t); writeln;
                        poucK(n,t);
                        VbIVod(n,t);
                        yes:=1
                   end else
                   begin
                   poucK(n,t);
                   VbIVod(n,t);
                   end;
        end;
     4: break;
     else writeln('He BepHbIu BBoD')  end;
     until  a>4;
end.

program thr120987;
uses crt;
const count=100;
type arr=array[1..count] of integer;
var mas:arr;
n:integer;
 
procedure input(var mas:arr; n:integer);
var i:integer;
begin
for i:=1 to n do begin
                 write('mas[',i,']=');
                 readln(mas[i]);
                 end;
end;
 
procedure output(mas:arr; n:integer);
var i:integer;
begin
for i:=1 to n do write(mas[i],' ');
end;
 
procedure search_replace(var mas:arr; n:integer);
var i,min_even,min_odd,i_even,i_odd:integer;
begin
min_even:=mas[2];
i_even:=2;
min_odd:=mas[1];
i_odd:=1;
for i:=1 to n do begin
                 if not odd(i) and (mas[i]<min_even) then begin
                                                          min_even:=mas[i];
                                                          i_even:=i;
                                                          end;
                 if odd(i) and (mas[i]<min_odd) then begin
                                                     min_odd:=mas[i];
                                                     i_odd:=i;
                                                     end;
                 end;
writeln('min chet: ',min_even,' , ind: ',i_even);
writeln('min nechet: ',min_odd,' , ind: ',i_odd);
if i_even<i_odd then for i:=i_even+1 to i_odd-1 do begin
                                                   if odd(i) then mas[i]:=i_odd;
                                                   if not odd(i) then mas[i]:=i_even;
                                                   end
else for i:=i_odd+1 to i_even-1 do begin
                                   if odd(i) then mas[i]:=i_odd;
                                   if not odd(i) then mas[i]:=i_even;
                                   end;
end;
begin
clrscr;
write('kol-vo elem: '); readln(n);
input(mas,n);
clrscr;
output(mas,n);
writeln;
search_replace(mas,n);
writeln;
writeln('vihod:');
output(mas,n);
readkey;
end.