Замените элементы массива, стоящие после минимального элементы, на последний элемент массива

const m = 17;
var i, min, k: integer;
    s, p: longint;
    v: array [1..m] of integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      v[i] := random(27) - 13;
      write(v[i]:4)
    end;
  writeln;
  min := 1;
  for i := 2 to m do if v[i] < v[min] then min := i;
  writeln('Минимальный элемент: V[', min, '] = ', v[min]);
  s := 0;
  p := 1;
  k := 0;
  writeln('Замена элементов после минимального на последний:');
  for i := 1 to m do
    begin
      if i > min then v[i] := v[m];
      write(v[i]:4);
      if v[i] < 0 then p := p * v[i];
      if v[i] > 0
        then begin
          s := s + v[i];
          inc(k)
        end;
    end;
  writeln;
  writeln('Произведение отрицательных элементов = ', p);
  writeln('Сумма положительных элементов = ', s);
  if p > s
    then begin
      writeln('Произведение отрицательных элементов > cуммы положительных элементов.');
      writeln('Обнуление отрицательных элементов. Результат:');
      for i := 1 to m do
        begin
          if v[i] < 0 then v[i] := 0;
          write(v[i]:4)
        end;
      writeln
    end
    else begin
      writeln('Произведение отрицательных элементов <= cуммы положительных элементов.');
      writeln('Количество положительных элементов = ', k)
    end;
  readln
end.