Дан вектор Р(13). Если отрицательных элементов в векторе больше, чем положительных, то упорядочить вектор по возрастанию, иначе оставить без изменения — Pascal(Паскаль)

program v;

uses crt;

const
  n = 13;

type
  vector = array [1 .. n] of integer;

var
  a: vector;
  i: integer;
  kol1: integer; { pologit }
  kol2: integer;
  buf: integer;
  min: integer;
  j: integer;

begin
  randomize;
  clrscr;
  for i := 1 to n do
  begin
    a[i] := random(10) - 5;
    write(a[i], ' ');
  end;
  writeln;
  for i := 1 to n do
  begin
    if a[i] > 0 then
      inc(kol1)
    else
      inc(kol2);
  end;
  if kol1 < kol2 then
  begin
    write(a[i], ' ');
  end;
  if kol1 > kol2 then
  begin
    // сортировка вектора
    for i := 1 to n - 1 do
    begin
      for j := i + 1 to n do
        if a[j] < a[min] then
          min := j;
      buf := a[i];
      a[i] := a[min];
      a[min] := buf;
    end;
    for i := 1 to n do
    begin
      write(a[i], ' ');
    end;
    writeln;
  end;
  readln;

end.