в новый массив на делфи

[Polusha]

Дан целочисленный массив А размера N. Переписать в новый целочисленный массив В того же размера вначале все элементы исходного массива с чётными номерами, а затем с нечётными: А2, А4, А6...А1, А3, А5.

[RUSt88]

program p;

{$APPTYPE CONSOLE}

const
	N = 9;

var
	A, B: array[0..N] of integer;
	i, h: integer;
	
begin
	h := 0;
	for i := 0 to N do begin
		if ( i mod 2 = 0 ) then begin
			B[h] := A[i];
			inc(h);
		end;
	end;
	for i := 0 to N do begin
		if ( i mod 2 <> 0 ) then begin
			B[h] := A[i];
			inc(h);
		end;
	end;
	for i := 0 to N do begin
		Write(B[i], #32);
	end;
	Readln;
end.

[Polusha]

Сообщение от RUSt88

program p;

{$APPTYPE CONSOLE}

const
	N = 9;

var
	A, B: array[0..N] of integer;
	i, h: integer;
	
begin
	h := 0;
	for i := 0 to N do begin
		if ( i mod 2 = 0 ) then begin
			B[h] := A[i];
			inc(h);
		end;
	end;
	for i := 0 to N do begin
		if ( i mod 2 <> 0 ) then begin
			B[h] := A[i];
			inc(h);
		end;
	end;
	for i := 0 to N do begin
		Write(B[i], #32);
	end;
	Readln;
end.

массив заполняется нулями, а должен числами. Чтение массива в начале не помогает. Генерация нужна, но не знаю как?