Помогите

[програмист новичок]

помогите пожалуйста создать программу в дельфи:
Дано масив а=(а1, а2, а3...an). Отрицательные елементы масива заменит на 3 а положительные на 0. Ето задание нужно выполнить с помощю процедур.
Заранее благодарен

[ViNcHeStEr]

вот одной процедурой

procedure massiv;
begin
 for i:=1 to n do
  begin
   if mas[i]<0 then mas[i]:=3;
   if mas[i]>0 then mas[i]:=0;
 end;
end;

[Somebody]

Только там else ещё надо, а то отрицательные тоже на нули позаменяются.
Ой, уже неделя прошла, ну ладно...