Одномерный массив. Заменить элементы на противоположные по знаку.

[кумитэ]

Помогите мне разобраться. Мне нужно написать задачу на одномерный массив, которая бы первый отрицательный элемент в массиве заменил нулем. Я решила задачу, она действительно заменяет только первый отрицательный элемент, а на самом деле такое решение должно заменять все отрицательные числа нулями. Что мне нужно сделать? Написать условие? Или присвоить, то что?

var a: array[1..1000] of integer;
i, n: integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite(output);
readln (n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
if a[i]<0 then begin
a[i]:=0;
for i:=1 to n do
write (a[i],' ');
readln (a[i]);
end;
close (input);
close (output)
end.

[Mad_Cat]

for i:=1 to n do
if a[i]<0 then begin
a[i]:=0;break;end;

[кумитэ]

Mad_Cad спасибо Вам! Я поняла, то-есть нашел первый отрицательный элемент заменил его нулем и остановка.