Сдвинуть все элементы с четными индексами в начало массива, а с нечетными – в конец, сохраняя порядок их следования.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  type
    A = array[1..10]of integer;
    var arr,brr : A;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
var i, j, temp: integer;
begin
  Edit1.Text:='';
  Edit2.Text:='';
  for i:= 1 to 10 do
  begin
    arr[i]:= 0;
  end;
  for i:= 1 to 10 do
  begin
    randomize;
    arr[i]:= random(9);
    Edit1.Text:=Edit1.Text+IntToStr(arr[i]);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,k: integer;
begin
  Edit2.Text:='';
  k:=1;
  for i:= 1 to 10 do
  begin
    brr[i]:= 0;
  end;
    for  i := 1 to 10 do
      begin
        if ( i mod 2 = 0 )
        then
        begin
        brr[k]:=arr[i];
        k:=k+1;
        end;
end;
for  i := 1 to 5 do
Edit2.Text:=Edit2.Text+IntToStr(brr[i]);
    for  i := 1 to 10 do
      begin
        if ( i mod 2 <> 0 )
        then
        begin
        brr[k]:=arr[i];
        k:=k+1;
        end;
end;
for  i := 6 to 10 do
Edit2.Text:=Edit2.Text+IntToStr(brr[i]);
end;
end.

type A = array[1..10]of integer;
 
var arr:a;
 
procedure chetkiy_perenos(var m:a);
var b:a;
i,n:Integer;
begin
   n:=1;
   for i:=1 to 10 do b[i]:=m[i];
   for i:=1 to 10 do if not Odd(i) then begin m[n]:=b[i]; n:=n+1; end;
   for i:=1 to 10 do if Odd(i) then begin m[n]:=b[i]; n:=n+1; end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
edt1.Text:='';
edt2.Text:='';
Randomize;
for i:=1 to 10 do begin arr[i]:=Random(9); edt1.Text:=edt1.Text+inttostr(arr[i]);  end;
chetkiy_perenos(arr);
for i:=1 to 10 do edt2.Text:=edt2.Text+inttostr(arr[i]);
end;

if odd(n) then k:=n div 2+1 else k:=n div 2;
for i:=1 to k do
 begin
  x:=a[i];
  for j:=i to n-1 do
  a[j]:=a[j+1];
  a[n]:=x;
 end;