Помогите пожалуйста сделать задачу в паскале АВС. Нужно первый элемент отрицательного массива заменить на ноль. 

var  a: array [1..3] of shortint;  i: byte;  begin  for i := 1 to 3 do  begin    a[i] := random(-1024, -1);    writeln(String.Format('a[{0}] => {1}', i, a[i]));  end;  writeln();  a[1] := 0;  for i := 1 to 3 do writeln(String.Format('a[{0}] => {1}', i, a[i]));end.