Все положительные числа заменить суммой отрицательных

Const nmax=60;
Var A:array[1..nmax] of integer;
    i,n,k1,k2,s:integer;
Begin
    Repeat
     write('N: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    k1:=0;k2:=0;s:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:5);
      if A[i]<0 then 
      Begin
        inc(k1);
        s:=s+A[i];
      End
      else inc(k2);
    End;
    writeln;
    writeln('Отрицательных = ',k1);
    writeln('Не отрицательных = ',k2);
    if k1>k2 then
     For i:=1 to n do
     Begin
       if A[i]>0 then A[i]:=s;
       write(A[i]:5);
     End
    else writeln('Не отрицательных больше');
End.

var
    P : array [1..60] of integer;
    i, s, n, k : integer;
begin
    write('введите количество элементов массива (<=60): ');
    readln(n);
    randomize;
    s := 0;
    k := 0;
    writeln('исходный массив:');
    for i := 1 to n do
    begin
        P[i] := random(20) - 10;
        write(P[i]:4);
        {считаем сумму отрицательных, количество неотрицательных}
        if P[i] < 0 then s := s + P[i] else inc(k)  
    end;
    writeln;
    writeln('сумма отрицательных: ', s);
    writeln('массив после замены:');
    for i := 1 to n do
    begin
        if P[i] > 0 then P[i] := s;
        write(P[i]:4)
    end;
    writeln;
    if k > n / 2 then writeln('неотрицательных больше');
    readln
end.

const
  nmax = 60;
var
  a: array[1..nmax] of integer;
  n, S, pol, otr, i, im, k, sum1, x, x1, x2, max: integer;
begin
  repeat
    write('Введите размер массива n (n<=60): ');
    readln(n);
  until N in [1..60];
  writeln('Исходный массив:');
  for i := 1 to N do
  begin
    a[i] := random(199) - 99;
    write(a[i], ' ');
  end;  
  S := 0;
  pol := 0;
  otr := 0;
  for i := 1 to n do 
  begin
    if A[i] >= 0 then 
      pol := pol + 1
    else 
    begin
      S := S + A[i];
      otr := otr + 1;
    end;
  end;
  writeln;
  writeln('сумма отрицательных, S=', s);  
  x := 0;
  while x < 1 do
  begin
    if pol > otr then 
    begin
      writeln('Больше положительных:');
      x := 2;
    end    
    else     
    if A[i] >= 0 then 
    begin
      A[i] := S;
    end;     
  end;  
   writeln;
  writeln('Полученный массив:');
  for i := 1 to n do write(a[i], ' ');      
end.