Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых не превышает единицу

program a1;
uses crt;
Var B: array[1..32] of real;
n,k,j, last_zero: integer;
sum,t :real;
begin
clrscr;
Randomize;
For n:=1 to 32 do
begin
B[n]:=random*10-5;
write(B[n]:10:3);
end;
k:=0;
For n:=1 to 32 do
if B[n]>0 then
k:=k+1;
writeln('Количество положительных чисел равно ',k);
 
last_zero:=0;
for n:=32 downto 1 do
begin
if B[n]=0 then begin
n:=last_zero;
break
end;
end;
sum:=0;
if last_zero = 0 then begin  
for n := last_zero to 32 do
sum := sum + B[n];
Writeln('Сумма элементов массива, расположенных после последнего элемента, равного нулю: ', sum);
end
else
Writeln('Нет элементов массива равных нулю ');
 
k := 0;
for n := 1 to 32 do
if int(B[n]) < 1 then
begin
k := k + 1;
t:=B[n];
B[n]:=B[k];
B[k]:=t
end;
for n := 1 to 32 do
write(B[n]:10:3);
end.

program mas_0inBegin;
 
const
  max = 8;
 
var
  i, j: Byte;
  m: array[1..max] of real;
  tmp: real;
 
begin
  for i := 1 to max do
  begin
    m[i] := Random * max;
    Write(m[i]:8:2);
  end;
  Writeln;
  for i := 1 to max do
    for j := 2 to max do
      if (trunc(m[j]) <= 1) and (trunc(m[j - 1]) > 1 ) then
      begin
        tmp := m[j - 1];
        m[j - 1] := m[j];
        m[j] := tmp;
      end;
  for i := 1 to max do 
    Write(m[i]:8:2);
  Writeln;
end.