Поменять на противоположные знаки тех элементов массива, которые встречаются ровно 1 раз

program   p1;
       uses
           crt;
       const
            size=10;
       var
          i,j:integer;
          buf:integer;
          count:integer;
          m:array[1..size] of integer;
       begin
            clrscr;
            randomize;
            count:=1;
            for i:=1 to size do
                begin
                     m[i]:=random(20)-10;
                end;
            for i:=1 to size do
                begin
                     write(m[i]);
                     write('  ');
                end;
            writeln;
            for i:=1 to size do
                begin
                      buf:=m[i];
                      for j:=1 to size do
                          begin
                               if buf=m[j] then
                                  count:=count+1;
                          end;
                       if count=1 then
                          begin
                               if m[i]>0 then
                                  m[i]:=m[i]-2*m[i]
                               else
                                   m[i]:=abs(m[i]);
                           end;
                end;
            for i:=1 to size do
                 begin
                     write(m[i]);
                     write('  ');
                end;
          end.

// Поменять на противоположные знаки тех эл-в массива,которые встречаются ровно 1 раз
// PascalABC.NET. lamed, 18.06.2011
const
  size=20;
var
  i,j:integer;
  m:array[1..size] of integer;
  s: set of 1..size;
  theonly: boolean;
begin
  s:= [1..size];
  randomize;
  for i:=1 to size do
    m[i]:=random(20)-10;
 
  for i:=1 to size do
    write(m[i], '  ');
  writeln;
 
  for i:= 1 to size-1 do
    if i in s then
      begin
        j:= i+1;
        theonly := true;
        while (j<=size) do
          begin
            if m[j]=m[i] then
              begin
                theonly := false;
                s:=s-[j];
              end;
            inc(j);
          end;
        if not theonly then
          s:= s-[i];
      end;
 
  for i:= 1 to size do
    if i in s then
      m[i] := -m[i];
      
  // writeln('Не дублируются ', s);
  // Только для ABC.NET
  for i:= 1 to size do
    write(m[i], '  ');
  writeln;
end.

if count=1 then
                          begin
                               if m[i]>0 then
                                  m[i]:=m[i]-2*m[i]
                               else
                                   m[i]:=abs(m[i]);
                           end;

if count=1 then  m[i]:=-m[i];