Динамические массивы. Найти среднее арифметическое элементов с четными и нечетными индексами

program dinammas;
 type mas=array [1..1] of integer;
  var a1,a2:^mas;
   p: pointer;
   n: integer;
   i: integer;
   s1,s2: real;
   k1,k2: integer;
     begin
      write ('vvedite n v diapazone 2<n<16000');
      {$R-}
      mark (p); {zapominanie sostoyaniya dinamicheskoi pamyati}
       getmem (a1, n*sizeof (integer));
       randomize;
        for i:=1 to n do
         a1^[i]:=100*random(9)+random(9)+random(90);
          s1:=0; s2:=0;
          k1:=0; k2:=0;
           for i:=1 to n do
            if i mod 2=0 then
             begin
             s2:=s2+a^[i];
             k2:=k2+1;
             end
           else
            begin
             s1:=s1+a^[i];
             k1:=k1+1;
            end;
               release (p);
           s1:=s1/k1;
           s2:=s2/k2;
      if s1>s2 then 
       for i:=1 to k1 do
        begin
         a2^[i]:=a1^[i];
         write (a2^[i],'|');
         i:=i+2;
        end
       else
        for i:=2 to k2 do
         begin
         a2^[i]:=a1^[i];
         writeln (a^[i],'|');
         end;
 end.