program PositiveNegativeSortingArray;

const
ARRAY_LENGTH = 10;

type
IntegerArray = array$$\mathrm{1..}ARRA{Y}_{L}ENGTH$$ of Integer;

var
arr: IntegerArray;
i, temp, positiveIndex, negativeIndex: Integer;

begin
// Заполнение массива
writeln${}^{\prime }Введитеэлементымассива{:}^{\prime }$;
for i := 1 to ARRAY_LENGTH do
begin
write${}^{\prime }arr{[}^{\prime },i{,}^{\prime }]{:}^{\prime }$;
readln$arr[i]$;
end;

// Сортировка элементов
positiveIndex := 1;
negativeIndex := ARRAY_LENGTH;

while positiveIndex < negativeIndex do
begin
if arr$$positiveIndex$$ > 0 then
positiveIndex := positiveIndex + 1
else if arr$$negativeIndex$$ < 0 then
negativeIndex := negativeIndex - 1
else
begin
temp := arr$$positiveIndex$$;
arr$$positiveIndex$$ := arr$$negativeIndex$$;
arr$$negativeIndex$$ := temp;
positiveIndex := positiveIndex + 1;
negativeIndex := negativeIndex - 1;
end;
end;

// Вывод отсортированного массива
writeln${}^{\prime }Положительныеэлементывначале,отрицательныевконце{:}^{\prime }$;
for i := 1 to ARRAY_LENGTH do
write(arr[i], ' ');

readln;
end.