отсортировать по условию возрастания модуля отклонения их дробовой части от значения 0,5

[MIKE11IPME]

Помогите с сортировкой элементов в массиве

задаём массив с элементами
a:array[1..N] of real=(1.3,1.9,5.2,8,9,12.3,7.1,10,6 .5,4.7);

и нам надо отсортировать по условию возрастания модуля отклонения их дробовой части от значения 0,5
вот мы находим модуль отклонения
l:=frac(a[i]);
y:=abs(0.5-l);

Ну а вот чтот пытался сделать и вот что вышло

begin
repeat
 for i:=1 to N do
   begin
   l:=frac(a[i]);
   b:=frac(a[i+1]);
   y:=abs(0.5-l);
   u:=abs(0.5-b);
   if y<u then
     begin
     tmp:=a[i+1];
     a[i+1]:=a[i];
     a[i]:=tmp;
     f:=true;
     end
    else f:=false;
  end;
until f=false;
end;

Т.е. он не хочет сортировать помогите исправить ошибку

[eoln]

Обычная сортировка по возростанию, только условие немного другое if abs(frac(a[i]) - 0.5) > abs(frac(a[j]) - 0.5) then

const
  N = 10;
var
  i, j: integer;
  z: real;
  a: array[1..N] of real=(1.3, 1.9, 5.2, 8, 9, 12.3, 7.1, 10, 6.5, 4.7);
begin
  for i := 1 to N - 1 do
  for j := i + 1 to N do
  if abs(frac(a[i]) - 0.5) > abs(frac(a[j]) - 0.5) then begin
    z := a[i];
    a[i] := a[j];
    a[j] := z
  end;
  for i := 1 to N do write(a[i]:6:1);
  readln
END.

[MIKE11IPME]

Всё работает спс и низкий поклон вам

Эм задам тут вопрос не хочу засорять форум
а как сделать рандомное заполнение массива дробными числами до определённого знака после запятой?

[Stilet]

Ну примерно так:
r:=random(100)+random(1001)/1000 - это до 4го знака

[MIKE11IPME]

спасибо всё работает))
ограничился 2-мя занками после запятой