Определить множество номеров отрицательное М1, положительных М2 элементов вектора

const
 n = 10;
var
 SoB1, SoB2: set of byte;
 arr: array[1..n] of integer;
 i: integer;
begin
 SoB1:=[]; SoB2:=[];
 randomize;
  for i:=1 to n do
   begin
    arr[i]:=random(50)-10;
    write(arr[i], ' ');
     if arr[i] > 0 then include(SoB1, i);
     if arr[i] < 0 then include(SoB2, i);
   end;
 writeln;
 writeln('Множество положительных номеров: ', SoB1);
 writeln('Множество отрицательных номеров: ', SoB2);
end.

const
 n = 10;
var
 SoB1, SoB2: set of byte;
 arr: array[1..n] of integer;
 i: integer;
begin
 SoB1:=[]; SoB2:=[];
 randomize;
  for i:=1 to n do
   begin
    arr[i]:=random(50)-10;
    write(arr[i], ' ');
     if arr[i] > 0 then include(SoB1, i);
     if arr[i] < 0 then include(SoB2, i);
   end;
 writeln;
 writeln('Множество положительных номеров: ');
  for i:=1 to 255 do
   if i in SoB1 then write(i, ' ');
 writeln;
 writeln('Множество отрицательных номеров: ');
  for i:=1 to 255 do
   if i in SoB2 then write(i, ' ');
end.