Получить массив В путем перебора элементов массива А с нечетным индексом - Free Pascal

   Program Z1_2_11;
  uses crt;
  type
   Arr=array [1..30] of integer;
   PArr=^Arr;
  var
   a,b:PArr;
   i,d,max,kl:integer;
   t:text;
   ch:char;
 
  Procedure VvodI (var ni:integer);
   begin
    repeat
     Writeln ('Vvedite kolichestvo elementov massiva');
     readln (ni);
     if ni<=0 then
      writeln ('Error!');
    until (ni>0);
    writeln (t,' kolichestvo elementov=',ni);
   end;
 
  Procedure ZapolnMas (ii:integer; var ai:PArr);
   var j:integer;
   Begin
    for j:=1 to ii do
     begin
      writeln ('Vvedite element [',j,']:');
      readln (ai^[j]);
      writeln (t,'    a[',j,']=',ai^[j]);
     end;
   end;
    procedure MaxR(var ai: parr; var t:text; ni:integer;max:integer;kl:integer);
  var
   k:integer;
  begin
   kl:=1;
   max:=ai^[1];
   for k:=1 to ni do
     if a^[k]>max then
     begin
      max:=ai^[k];
      kl:=k;
     end;
     writeln(t,'index max element =',kl);
     writeln(t,'max element=',max);
   end;
 
  Procedure Obrabotka (ii:integer; ai:PArr; var di:integer; var kl:integer);
   var j:integer;
   begin
    di:=0;
    for j:=kl to ii do
     if (j mod 2=1) then
      inc(di);
   end;
 
  Procedure ZapolnB (di,ii,kl:integer; ai:PArr; var bi:PArr);
   var j:integer;
   begin
    if (kl mod 2=1) then bi^[1]:=a^[kl];
    di:=1;
    for j:=kl to ii do
     if (j mod 2=1) and (j>=kl) then
      begin
 
       bi^[di]:=ai^[j];
       inc(di);
      end;
   end;
  Procedure Sortirovka (var bi:PArr; di:integer);
   var i,j,k:integer;
   begin
     for i:=1 to di do
      for j:=1 to di do
      if bi^[j]>bi^[j+1] then
       begin
        k:= bi^[j];
        bi^[j]:=bi^[j+1];
        bi^[j+1]:=k;
       end;
     for j:=1 to di do
      writeln (t,'    ',bi^[j],' ');
      writeln ('      ',bi^[j],' ');
   end;
 
  begin
   clrscr;
   assign (t,'z1_02.pas');
   append (t);
  repeat
   {writeln(t,' Available ',memavail ,' byte.');}
 
   VvodI (i);
 
   GetMem (a,sizeof(integer)*i);
   ZapolnMas (i,a);
   maxr(a,t,i,max,kl);
   Obrabotka (i,a,d,kl);
   GetMem(b,sizeof(integer)*d);
   ZapolnB (d,i,kl,a,b);
   writeln (t,'  Otvet:');
   Sortirovka (b,d);
   {writeln(t,' Available ',memavail ,' byte.'); }
 
   writeln(t,'-----------------------------------------');
   FreeMem (a,sizeof(integer)*i);
   FreeMem (b,sizeof(integer)*d);
   writeln ('Press 1');
   readln (ch);
  until (ch='1');
   close (t);
  end.