Удалить первый отрицательный элемент одномерного массива, если такой элемент есть.

Program enot;
VAR   a: array [1..5] of integer;
  i,b: integer;
  begin
  for i:= 1 to 5 do
  a[i]:= random(51)-25; 
 for i:= 1 to 5 do
  write(a[i],' '); 
 writeln();
  for i:= 1 to 5 do
  if a[i]<0 then 
 begin b:=a[i];
  break
  end;
  for i:= 1 to 5 do
  if a[i]<>b
 then
write(' ', a[i]); 
 end.