Из исходного вектора все элементы с нечетным индексом нужно добавить в новый вектор.(Обязательно в процедуре)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, OleCtnrs, AxCtrls, OleCtrls, VCF1;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    OleContainer1: TOleContainer;
    F1Book1: TF1Book;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
const n=3;
type t=array[1..3] of real;
 
 
implementation
 
{$R *.dfm}
procedure Vok(var x:t;p:t);
var i,j:integer;
begin
j:=1;
for i:=1 to n do
if i mod 2=1 then
begin
  p[j]:=x[i];
  j:=j+1;
end;
j:=j-1;
end;
 
procedure Voz(var x:t);
var i,j:integer;
    p:real;
begin
for i:=1 to n-1 do
for j:=1 to n-1 do
if x[j]>x[j+1] then
 begin
  p:=x[j+1];
  x[j+1]:=x[j];
  x[j]:=p;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const x1:t=(5.2,1.4,3.5);
      y1:t=(3.4,-2.7,6.01);
      z1:t=(4.5,-0.1,1);
var x,y,z:t;
    a:array[1..n,1..n] of real;
    i,j,o:
    integer;
    p:real;
    m:t;
    b:t;
    c:t;
begin
x:=x1;
y:=y1;
z:=z1;
vok(x,m);
vok(y,b);
vok(z,c);
voz(x);
voz(y);
voz(z);
for i:=1 to n do
 begin
  a[i,1]:=x[i];
  a[i,2]:=y[i];
  a[i,3]:=z[i];
 end;
for i:=1 to n do
for j:=1 to n do
begin
StringGrid1.Cells[j-1,i-1]:=formatfloat('0.00',a[i,j]);
f1book1.NumberRC[i,j]:=a[i,j];end;
 
for i:=1 to n do
begin
f1book1.NumberRC[i+5,1]:=m[i];
f1book1.NumberRC[i+5,2]:=b[i];
f1book1.NumberRC[i+5,3]:=c[i];
 
end;
 
end;
 
 
 
 
end.

x:t;p:t