Заменить в массиве v(9) максимальный элемент на его значение с противоположныи знаком
(Паскаль)

program raf105;

var v:array[1..9] of real;

i,j,kolvo,n:integer;

max:real;

begin

writeln('Введите 9 значений по очереди: ');

for i:=1 to 9 do

read(v[i]);

for j:=1 to 9 do

begin

 for i:=1 to 9 do

   begin

     if (v[j]-v[i]) > 0

     then kolvo:=kolvo+1;

   end;

  if kolvo=8

  then  

  begin

    max:=v[j];

    n:=j;

  end

  else kolvo:=0;

end;

v[n]:= -max;

writeln('Максимальное число с противоположным знаком: ',v[n]);

end.

Написано на языке PascalABC.NET