Напишите программ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.