Сформировать массив B, записав в него элементы массива A с нечётными индексами

k:=0;
for i:=1 to n do
  if i mod 2 <> 0 then begin
    inc(k);
    b[k]:=a[i];
  end;
write('Массив В: '); 
for i:=1 to k do
 write(b[k]:4);
writeln;
min:=b[1];
nmin:=1;
for i:=2 to k do
  if min>b[i] then nmin:=i;
max:=b[1];
nmax:=1;
for i:=2 to k do
  if max<b[i] then nmax:=i;
b[nmin]:=0; b[nmax]:=0; b[5]:=0;
write('Измененный массив В: ');
for i:=1 to k do
  write(b[i]:4);

program task;
var a:array of real;
    b:array of real;
    i,n,j,k:byte;
    arifm,max_b,min_b,temp:real;
 
begin
    write('Кол-во элементов: ');readln(n);
    setlength(a,n);
    setlength(b,n);
    for i:=0 to n-1 do begin
        write('a[',i,']=');readln(a[i]);
    end;
    j:=0;
    for i:=0 to n-1 do
        if(i mod 2<>0)then begin
            b[j]:=a[i];
            j:=j+1;
        end
        else continue;
    writeln('---');
    for i:=0 to j-1 do
        writeln('b[',i,']=',b[i]:1:2);
    arifm:=0;
    for i:=0 to j-1 do 
        arifm:=arifm+b[i];
    arifm:=arifm/j;
    writeln('Ср.арифм. = ',arifm:1:2);
    min_b:=b[0];
    max_b:=b[0];
    for i:=0 to j-1 do begin
        if(b[i]<min_b)then begin
            min_b:=b[i];
        end;
        if(b[i]>max_b)then begin
            max_b:=b[i];
        end;
    end;
    for i:=0 to j-1 do begin
        if(b[i]=min_b)then begin
            for k:=i to j do begin
                temp:=b[k];
                b[k]:=b[k+1];
                b[k+1]:=temp;
            end;
            j:=j-1;
        end;
        if(b[i]=max_b)then begin
            for k:=i to j do begin
                temp:=b[k];
                b[k]:=b[k+1];
                b[k+1]:=temp;
            end;
            j:=j-1;
        end;
        if(i=5)then begin
            for k:=i to j do begin
                temp:=b[k];
                b[k]:=b[k+1];
                b[k+1]:=temp;
            end;
            j:=j-1;
        end;
    end;
    writeln('---');
    for i:=0 to j-1 do 
        writeln('b[',i,']=',b[i]:1:2);
    a:=nil;
    b:=nil;
end.

program task;
var a:array of real;
    b:array of real;
    i,n,j,k:byte;
    arifm,max_b,min_b,temp:real;
 
begin
    write('Кол-во элементов: ');readln(n);
    setlength(a,n);
    setlength(b,n);
    for i:=0 to n-1 do begin
        write('a[',i,']=');readln(a[i]);
    end;
    j:=0;
    for i:=0 to n-1 do
        if(i mod 2<>0)then begin
            b[j]:=a[i];
            j:=j+1;
        end
        else continue;
    writeln('---');
    for i:=0 to j-1 do
        writeln('b[',i,']=',b[i]:1:2);
    arifm:=0;
    for i:=0 to j-1 do 
        arifm:=arifm+b[i];
    arifm:=arifm/j;
    writeln('Ср.арифм. = ',arifm:1:2);
    min_b:=b[0];
    max_b:=b[0];
    for i:=1 to j-1 do begin
        if(b[i]<min_b)then begin
            min_b:=b[i];
        end;
        if(b[i]>max_b)then begin
            max_b:=b[i];
        end;
    end;
    for i:=j downto 0 do begin
        if(b[i]=min_b)then begin
            for k:=i to j do begin
                temp:=b[k];
                b[k]:=b[k+1];
                b[k+1]:=temp;
            end;
            j:=j-1;
        end;
        if(b[i]=max_b)then begin
            for k:=i to j do begin
                temp:=b[k];
                b[k]:=b[k+1];
                b[k+1]:=temp;
            end;
            j:=j-1;
        end;
        if(i=5)then begin
            for k:=i to j do begin
                temp:=b[k];
                b[k]:=b[k+1];
                b[k+1]:=temp;
            end;
            j:=j-1;
        end;
    end;
    writeln('---');
    for i:=0 to j do
        writeln('b[',i,']=',b[i]:1:2);
    a:=nil;
    b:=nil;
end.

Dec(j);
for k:=i to j-1 do b[k]:=b[k+1];

const n=18; m=(n+1) div 2; D=5; W=4;
var
  a: array [0..n-1] of Integer;
  b: array [0..m-1] of Integer;
  i, k, s, mn, mx: Integer;
begin
  Randomize; {s:=0;}
  for i:=0 to n-1 do a[i]:=Random(100);
  for i:=0 to m-1 do begin
    b[i]:=a[2*i]; s:=s+b[i];
  end;
  mn:=b[0]; mx:=b[0];
  for i:=1 to m-1 do
    if      mn>b[i] then mn:=b[i]
    else if mx<b[i] then mx:=b[i];
  Write('A ='); for i:=0 to n-1 do Write(a[i]:W); WriteLn;
  WriteLn('Avg(B) = ',s/m:0:2,'  Min(B) = ',mn,'  Max(B) = ',mx,'  B[',D,'] = ',b[D-1]);
  Write('B ='); for i:=0 to m-1 do Write(b[i]:W); WriteLn;
  Write('B''='); {k:=0;}
  for i:=0 to m-1 do  { оставим подходящие }
    if not ((i=D-1) or (b[i]=mn) or (b[i]=mx)) then begin
      b[k]:=b[i]; Inc(k); Write(b[i]:W);
    end else Write('x':W);
  WriteLn;
  Write('B''='); for i:=0 to k-1 do Write(b[i]:W); WriteLn;
end.

  {k:=0;}
  for i:=0 to m-1 do  { оставим подходящие }
    if not ((i=D-1) or (b[i]=mn) or (b[i]=mx)) then begin
      b[k]:=b[i]; Inc(k);
    end;