Задать массив случайными вещественными числами в диапазоне значений от -90 до +100

uses crt;
const nmax=100;
var a,b,c:array[1..nmax] of real;
    na,nb,nc,i,j,x:byte;
    buf:real;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' na=');
readln(na);
until na in [2..nmax];
writeln('Массив A');
for i:=1 to na do
 begin
  a[i]:=-90+190*random;
  write(a[i]:8:2);
 end;
writeln;
nb:=0;
nc:=0;
for i:=1 to na do
if a[i]<0 then
 begin
  inc(nb);
  b[nb]:=a[i]
 end
else if a[i]>0 then
 begin
  inc(nc);
  c[nc]:=a[i]
 end;
if nb=0 then writeln('Отрицательных элементов нет')
else
 begin
  writeln('Исходный массив отрицательных элементов');
  for i:=1 to nb do
  write(b[i]:8:2);
  writeln;
  {Сортировка выбором по возрастанию}
  for i:=1 to nb-1 do
   begin
    x:=i;
    for j:=i+1 to nb do
    if b[j]<b[x] then x:=j;
    buf:=b[i];
    b[i]:=b[x];
    b[x]:=buf;
   end;
  writeln('Упорядоченный массив: ');
  for i:=1 to nb do
  write(b[i]:8:2);
  writeln;
 end;
if nc=0 then writeln('Положительных элементов нет')
else
 begin
  writeln('Исходный массив положительных элементов');
  for i:=1 to nc do
  write(c[i]:8:2);
  writeln;
  {Сортировка вставками по убыванию}
  for i:=2 to nc do
   begin
    buf:=c[i];
    j:=i-1;
    while (j>=1) and (c[j]<buf) do
     begin
      c[j+1]:=c[j];
      j:=j-1;
     end;
    c[j+1]:=buf;
   end;
  writeln('Упорядоченный массив: ');
  for i:=1 to nc do
  write(c[i]:8:2);
  writeln;
 end;
readln
end.