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

Массив одномерный из 10  элементов. var a : Array [1..10] Of Real;         I:integer; Begin For 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.