const
  n = 10;

var
  arr: array [1..n] of integer;
  i, j, min, count: integer;

begin
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    arr[i] := random(51) - 25;
    write(arr[i]:4);
  end;
  writeln;

  min := 1;
  for i := 1 to n do if arr[i] < arr[min] then min := i;

  count := 0;

  for i := 1 to n do
  begin
    if arr[i] < 0 then
    begin
      Inc(count);
      j := i;
    end;
    if count = 2 then break;
  end;

  if count <> 2 then writeln('ошибка') else
  begin
    arr[j] := arr[min];

    writeln('Новый массив:');
    for i := 1 to n do write(arr[i]:4);
  end;
end.