Дан одномерный массив действительного типа. Получить массив, состоящий из отрицательных чисел исходного массива

var c, min, max:real;
    i, j, m, f: integer;
    a:array[1..100] of real;
    b:array[1..100] of real;
    begin
         randomize;
         m:=1;
         min:=0;
         read(m);
         max:=-1000;
         for i:=1 to m   do
             begin
                  a[i]:=random(100)-50;
                  if a[i]<0 then
                  begin
                       b[m]:=a[i];
                       int(m);
                  end;
             end;
          if m > 0 then
                  for j:=1 to m-1 do
                  begin
                      for i:=1 to m-1 do
                      begin
                           if (b[i]<min) and (b[i]>max) then min:=b[i];
                      end;
                  b[j]:=min;
                  max:=min;
                  end;
          for i:=1 to m-1 do
           write(a[i],'  ');
           writeln();
           for i:=1 to m-1 do
           write(b[i],'  ');
 
end.