дан числовой массив А состоящий из n элементов если отношение числа положительных элементов к числу отрицательных более 2, то все отрицательные элементы этого массива замените на 1, а положительные умножьте на максимальный элемент

const  n=15;var  i,np,nn,amax:integer;  a:array[1..n] of integer;begin  Randomize;  Write('Исходный массив: ');  np:=0; nn:=0;  for i:=1 to n do begin    a[i]:=Random(51)-15;    Write(a[i],' ');    if a[i]>0 then Inc(np)    else if a[i]<0 then Inc(nn);    end;  Writeln;  if np/nn>2 then begin    amax:=a[i];    for i:=2 to n do      if a[i]>amax then amax:=a[i];    Write('Выходной массив: ');    for i:=1 to n do begin      if a[i]<0 then a[i]:=1      else        if a[i]>0 then a[i]:=a[i]*amax;      Write(a[i],' ')      end;    Writeln    end  else Writeln('В массив изменения не вносятся')end.Пример работы программыИсходный массив: 28 8 21 32 0 26 30 11 35 21 14 6 0 -4 -8 Выходной массив: 980 280 735 1120 0 910 1050 385 1225 735 490 210 0 1 1