Задан вещественный массив размера N.Перед каждым положительным элементом массива вставить нулевой элемент. Pascal(Delphi)

Задан вещественный массив размера N.Перед каждым положительным элементом массива вставить нулевой элемент.
Pascal (среда разработки Delphi)