помогите по Delphi

const
   N=10;
var
  A:array[1..N] of integer;
  TempA:array[1..N] of integer;
  i:integer;
  ind1,ind2:integer;
begin
//Ввводим А .....

//Копируем в промежуточный массив
  for i:=1 to N do
    TempA:=A;  

//Индекс для первой половины
  ind1:=1;
//Индекс для второй половины
  ind2:=(N div 2)+1;
  for i:=1 to N do
    if (i mod 2)=0 then
      begin
        //Четная позиция
        A[ind1]:=TempA;
        inc(ind1);
      end
    else
      begin
        //Нечетная позиция
        A[ind2]:=TempA;
        inc(ind2);
      end;
//Выводим А в стринггрид.....
end;