Каждый элемент массива с четным индексом заменить единицей

uses crt;                                                                     
label l1,l2;                                                                  
var a:array[1..32000] of integer;                                             
    b,c,i,k,n:integer;                                                      
begin                                                                         
clrscr; randomize;                                                            
l1:                        
     writeln('задайте размерность массива: '); read(n);                       
     write('введите границы интервала произвольных элементов: '); read(b,c);  
  i:=1;                                                                         
       While i<=n do begin                                                    
          a[i]:=random(b)-random(c);                                            
          i:=i+1;                                                               
       end;                                                                                                                                                   
                                                                             
    Repeat                                               
              if (i mod 2=0) then writeln(a[i], '      1') else  writeln(a[i], '      ',a[i]);             
              i:=i+1;                                                       
       until (i>n);                                                                                                                              
                                                                             
   writeln('нажмите 1 чтобы сформировать новый массив, 2-выйти: '); read(k); 
   if k=1 then goto l1 else goto l2;                                          
 
l2: end.

uses crt;
var a:array[1..32000] of integer;                                             
    x1,x2,i,n:integer;                                                      
begin                                                                         
 clrscr; 
 randomize;     
 write('Размерность: ');
 readln(n);
 write('Диапазон:');
 readln(x1,x2);
 for i:=1 to n do 
  begin
   a[i]:=Random(x2 - x1 + 1) + x1;
   if not odd(i) then
    begin
     write(a[i],'   ');
     a[i]:=1;
     writeln(a[i]);
    end
   else
    begin
     writeln(a[i],'   ',a[i]);
  end;
 end; 
end.