program InsertZeroBeforePositiveElement;

const
N = 5;

var
arr: array[1..N] of Real;
i, j: Integer;

begin
// инициализация массива
arr[1] := -2;
arr[2] := 3;
arr[3] := 4;
arr[4] := -1;
arr[5] := 5;

// вывод исходного массива
WriteLn('Исходный массив:');
for i := 1 to N do
Write(arr[i]:4:2, ' ');
WriteLn;

// вставка нулей перед положительными элементами
j := N; // новый размер массива
for i := 1 to N do
begin
if arr[i] > 0 then
begin
for j := N downto i + 1 do
arr[j] := arr[j - 1];
arr[i] := 0;
end;
end;

// вывод нового массива
WriteLn('Массив после вставки нулей перед положительными элементами:');
for i := 1 to j do
Write(arr[i]:4:2, ' ');

ReadLn;
end.