В одномерном массиве, состоящем из n вещественных элементов, вычислить: 2. преобразовать массив таким образом, чтобы сначала располагались все элементы целая часть которых лежит в интервале [a,b],а потом -все остальные- Pascal(Паскаль)

var
mas,mas2: array[1..30] of real;
i,n,a,b,count: integer;
begin
writeln('Введите a b через пробел');
readln(a,b);
writeln('Введите N<30 (длину массива)');
readln(n);
count:=0;
for i:=1 to n
    do
      begin
      writeln('Введите ',i,'-ый элемент массива');
      readln(mas[i]);
      end;
writeln('Было:');
for i:=1 to n
    do
      begin
      write(mas[i],' ');
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])>a) and (trunc(mas[i])<b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])<a) or (trunc(mas[i])>b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
writeln;
writeln('Стал:');
for i:=1 to n
    do
      begin
      write(mas2[i],' ');
      end;
end.