Напишите пожалуйста программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями

Массив одномерный из 10  элементов. var a : Array [1..10] Of Real;        I:integer;BeginFor i:=1 to 10 do read (a[i]); {ввод элементов массива}For i:=1 to 10 do {открыт цикл}         If a[i] < 0 then a[i]:=0; {сравнение элемента массива с нулем и если да то замена}For i:= 1 to 10 do write(a[i]); {вывод элементов массива}End.