Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива.

uses crt; 
type arr=array[1..15] of integer; 
var a:arr; 
    i,j,n: byte; 
    i_min: byte; 
    min: integer; 
Begin 
  {$R+} 
  clrscr; 
  n:=15; 
  randomize; 
  writeln ('Ishodi massiv'); 
  for i:=1 to n do 
  begin 
  a[i]:=-20+random(41); 
  write(a[i]:4); 
  end; 
  writeln; 
  min:=a[1]; 
  i_min:=1; 
  for i:=2 to n do 
    if a[i]<min then 
    begin 
    min:=a[i]; 
    i_min:=i; 
    end; 
i:=i_min+1; 
          while i<=n do 
          begin 
          if (a[i]>0) and (i mod 2=0) then 
          begin 
          for j:=i to n-1 do 
          a[j]:=a[j+1]; 
          n:=n-1; 
          end 
          else i:=i+1; 
          end; 
          writeln (' Rezultat '); 
          for i:=1 to n do 
          write (a[i]:4); 
          readln; 
          {$R+} 
end.

uses crt;
type arr=array[1..15] of integer;
var a:arr;
    i,j,n: byte;
    i_min: byte;
    min: integer;
Begin
  clrscr;
  n:=15;
  randomize;
  writeln ('Ishodi massiv');
  for i:=1 to n do
  begin
  a[i]:=-20+random(41);
  write(a[i]:4);
  end;
  writeln;
  min:=a[1];
  i_min:=1;
  for i:=2 to n do
  if a[i]<min then
   begin
    min:=a[i];
    i_min:=i;
   end;
i:=n; //начать нужно с конца, чтобы индексы не менялись у непроверенных
while i>=i_min+1 do
if (a[i]>0) and (i mod 2=0) then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1; //удалили
  i:=i-1; //к началу
 end
else i:=i-1; //не удалили, просто к началу
writeln (' Rezultat ');
for i:=1 to n do
write (a[i]:4);
readln;
end.