Сделать Блок-Схему и программку в PascalСгенерировать элементы массива вещественного типа

Для чего нам вещественный массив?

var

i, j, n: integer;

tmp: double;

mas: array[1..101] of double;

begin

randomize;

readln(n);

for i:=1 to n do

begin

 mas[i]:= random(-100,107);

end;

for i:=1 to n do

 for j:=1 to n do

   if mas[j]gt;mas[j+1] then

   begin

     tmp:=mas[j];

     mas[j]:=mas[j+1];

     mas[j+1]:=tmp;

   end;

for i:=1 to n do

write(mas[i], ' ');

end.