паскаль!одномерный массив

[игорек фролоff]

заменить максимальный по модулю отрицательный элемент нулем

[DM_bite]

program Xd;
var A:array [1..10] of integer;
    i,min,mini: integer;
    begin
    randomize;
    min:= 0;
    mini:= 1;
    for i:= 1 to 10 do
     begin
      a[i]:= -6+random(10);
       Write(a[i],'_');
      if (a[i]<0) and (a[i]<min) then
       begin
       min:= a[i];
       mini:= i;
       end;
      end;
      WriteLn;
        a[mini]:= 0;
   for i:= 1 to 10 do
    begin
     Write(a[i],'^');
     end;
      ReadLn;
      end.