программу дала училка условия немного тупы помогите хотя бы с 1 задачей 
помогите пожалуйста написать 2 программы на языке паскаль

1) Массив чисел a1,a2...a30 упорядочить так, чтобы положительные и отрицательные числа чередовались, учитывая что их количество одинаковое.

2) Задание 1:
Реализовать процесс полного построения алгоритма для задачи, выполняющей следующие операции:
• ввод с клавиатуры числовой последовательности (одномерного массива);
• сортировка последовательности по возрастанию (убыванию) указанным методом;

• поиск заданного элемента в последовательности (по вариантам)
Цель поиска данных:
- варианты 19 – поиск ключевого (заданного) элемента;
Сортировку данных реализовать:
- варианты 1, 9 - алгоритмом Хоара
В форме программы отобразить поля вывода с пояснениями для следующих данных программы: исходная последовательность; отсортированная последовательность; ключевой элемент для поиска для вариантов 1, 3, 6, 9; результат поиска

Задача 1.const  n=30;var  a,b:array[1..n] of integer;  i,j,k:integer;begin  { самое сложное - создать такой массив,    где положительные и отрицательные элементы будут случайно    перемешаны и их будет по n/2.    Если организовать ввод с клавиатуры, то это гораздо проще.  }  Randomize;  { инициализация "флажком" - значением 1000 }  for i:=1 to n do a[i]:=1000;  { сначала генерируем n/2 случайных отрицательных на случайных местах }  for i:=1 to (n div 2) do  begin    k:=Random(50)-50; { случайное отрицательное значение }    { а теперь ищем случайное свободное место }    repeat      j:=Random(30)+1    until a[j]=1000;    a[j]:=k  end;  { теперь осталось сгенерировать n/2 случайных положительных чисел    и разместить их на свободных местах }  for i:=1 to (n div 2) do  begin    k:=Random(50)+1; { случайное положительное значение }    { а теперь ищем свободное место }    j:=0;    repeat      Inc(j)    until a[j]=1000;    a[j]:=k  end;  { и только отсюда начинается собственно задание }  Writeln('Исходный массив');  for i:=1 to n do Write(a[i]:4);  Writeln;  { j - количество обработанных отрицательных,    k - количество положительных,    а массив строим так, что отрицательные элементы на нечетных местах }  if a[1]<0 then begin b[1]:=a[1]; j:=1; k:=0 end  else begin b[2]:=a[1]; j:=0; k:=1 end;  for i:=2 to n do    if a[i]<0 then    begin Inc(j); b[2*j-1]:=a[i] end    else begin Inc(k); b[2*k]:=a[i] end;  Writeln('Результирующий массив');  for i:=1 to n do Write(b[i]:4);  Writelnend.Тестовое решение:Исходный массив  43  44  34  21  14 -26  32  35 -25  -8  42 -35 -37  12  45 -25  31   8 -16  -5   8 -25 -19 -15 -27 -16  12  26 -14 -41Результирующий массив -26  43 -25  44  -8  34 -35  21 -37  14 -25  32 -16  35  -5  42 -25  12 -19  45 -15  31 -27   8 -16   8 -14  12 -41  26