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

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.