Sorting

program test;
var
    a,b:array[1..15] of integer;
        c,d,e,f:integer;
begin
randomize;

{заполняем массив случайными числами от 0 до 90}
for c:=1 to 15 do
    a[c]:=random(90);

{выводим сгенерированный массив}
for c:=1 to 15 do
    write(a[c],' ');
writeln;
writeln;

{счётчик для массива b}
e:=1;

{записываем в начало массива b четные элементы массива а}
for c:=1 to 15 do
    if c mod 2 = 0 then
        begin
            b[e]:=a[c];
                e:=e+1;
        end;

{теперь записываем в продолжение массива b нечетные элементы массива а}
for c:=1 to 15 do
    if c mod 2 = 1 then
        begin
            b[e]:=a[c];
                e:=e+1;
        end;

{Временная переменная для сортировки пузырьком}
f:=0;

{сортируем первую половину массива b, где у нас находятся четные элементы}
for c:=1 to 7 do
    for d:=c to 7 do
            if b[c] > b[d] then
                begin
                        f:=b[d];
                        b[d]:=b[c];
                        b[c]:=f;
                end;

{сортируем вторую половину массива b, где у нас находятся нечетные элементы}
for c:=8 to 15 do
    for d:=c to 15 do
            if b[c] > b[d] then
                begin
                        f:=b[d];
                        b[d]:=b[c];
                        b[c]:=f;
                end;

{выводим итоговый отсортированный массив}
for c:=1 to 15 do
    write(b[c],' ');

readln;
end.