Дан массив размера n. вывести вначале его элементы с четными индексами, а затем — с нечетными

Const     n = 13; var     a: array[1..n] of integer;     i: integer; begin randomize; for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(a[i],' ')       end; writeln; i: =1; while i < = n do     begin     write(a[i],' ');     i: =i+2;     end; writeln; i: =2; while i < = n do     begin     write(a[i],' ');     i: =i+2;     end; end.

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.