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

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.