Массив. В вещественном векторе отрицательные элементы заменить нулями - Pascal

Формулировка задачи:

Помогите написать программу, а то я мне в срок надо сдать её а я не разбираюсь в этом, плизззззз ! Ща напишу задачу : Задача№1 В вещественном векторе C(n) отрицательные документы заменить нулями.Вывести преобразованный вектор "C". Задача№2 В вещественном векторе F(n) отрицательные элементы заменить их квадратами.Вывести преобразованный вектор "F".

Решение задачи: «Массив. В вещественном векторе отрицательные элементы заменить нулями»

Листинг программы

uses crt;
const n=10;
var a: array[1..n] of integer; i: byte;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(19)-9;
write(a[i]:3);
if a[i]<0 then a[i]:=0;
end;
writeln;
writeln('результат: ');
for i:=1 to n do
write(a[i]:3);
end.

Объяснение кода листинга программы

Объявлены переменные:
- a: массив из n целых чисел
- i: индекс для перебора элементов массива
Инициализирован генератор случайных чисел
Заполнен массив a случайными числами от -9 до 9
Выведен исходный массив на экран
Если элемент массива отрицательный, то он заменяется на 0
Выведен измененный массив на экран