сделать лабораторную работу по Структурам данных в Delphi

var
  arr, arr_less, arr_more: Array of Real; // Наши массивы
  i: Integer; // Счётчик цикла
begin
  meddle := 0.0;
  SetLength(arr, 15 // Задаём длину массива 20 элементов. Можешь менять :D
  for i := 0 to High(arr) do
    arr[i] := Random * 50 - 25; // заполняем массив случайным образом
  for i := 0 to High(arr) do
    If arr[i] > 0 then // если больше нуля
      begin
        SetLength(arr_more, High(arr_more) + 2); // добавляем его
        arr_more[High(arr_more)] := arr[i];  //    в первый массив
      end
    else // иначе
      begin
        SetLength(arr_less, High(arr_less) + 2); // добавляем
        arr_less[High(arr_less)] := arr[i]; // во второй массив
      end;
  // теперь меняем исходный массив так, как сказано в задании
  for i := 0 to High(arr_less) do 
    arr[i] := arr_less[i];
  for i := 0 to High(arr_more) do
    arr[i + Length(arr)] := arr_more[i];
end;