Одномерные массив, Формирование 2 массивов Опции

[itGarD]

Задача
Дан массив целых чисел. Сформировать 2 новых массива.
Первый содержит все числа, которые больше среднего арифметического исходного массива и стоят на четных позициях,а второй - все числа, которые меньше среднего арифметического исходного массива и стоят на нечетных позициях.
Вот что получилось, но получилось не совсем то что нужно.

Код

uses crt;
const
n=10;
type a=array[1..n] of integer;
var
mas, mas1, mas2: a;
f,k,i,m,g: integer;
l:real;
begin
clrscr;
  randomize;
   for i:=1 to n do
     begin
       mas[i]:=random(30);
       write(' ',mas[i]);
     end;
   for i:=1 to n do
     begin
       k:=k+mas[i];
       l:=k/n;
     end;
     writeln(' Summa: ',l:1:1);

     for i:=1 to n do
       if i mod 2=0 then
         for f:=1 to n do
           begin
             if mas[i]>l then
               mas1[f]:=mas[i];
           end;
       for f:=1 to n do begin
         write(' ',mas1[f]);
       end;

     for i:=1 to n do
       if i mod 2<>0 then
         for g:=1 to n do
           begin
             if mas[i]<l then
               mas2[g]:=mas[i];
           end;
       for f:=1 to n do begin
         write(' ',mas2[g]);
       end;

readln;
end.