Вывести точки в порядке убывания расстояния от начала координат

program point;
Type Apoint = double;
    constructor Person.Create(x: double; y: double);
    begin
        nm := x;
        ag := y;
    end;
Procedure Apoint.GetDistTo0(z:double); //дистанция до 0,0
begin
    z:=sqrt(x*x+y*y);
end;
Procedure Apoint.GetDistToRandomPoint(x1,y1,z1: double); // дистанция до точки с клавиатуры
begin
    z1:=sqrt((x1-x)*(x1-x)+(y1-y)*(y1-y));
end;
var //Начинается программа!!!!!!!!!!!!!!!!!!!!!!!!!!!
    b1: array of Apoint;
    b2: array of Apoint;
    ans: array of Apoint; // Создаём массивы пар x и y
    i ,j, N,S,c,Sam,i2: integer; // Объявляем переменные
    X,Y: double;
begin
writeln('Введите количество точек');
readln(N);
SetLength(b1,N);
SetLength(b2,N);
b1 : new Apoint(X,Y); //Нужно сделть что бы в b1 хранились пары (x,y)!!!!!!!!!!!!!!!
b2 : new Apoint(X,Y); //Нужно сделть что бы b2 обрабатывал пары чисел из b1!!!!!!!!!!!!!!!
 
for i:=0 to N do begin   // Ввод точек Х и Y. Исправить ввод!!!!!
    writeln('Введите координаты x');
    read(X);
    writeln('Введите координаты y');
    read(Y);
    b1[i]:=new Apoint(X,Y); // Читаем x,y, заполняем парами массив b1
end;
    SetLength(arr,N);
    writeln;
 for i:=0 to N do begin //Заполняем  b2 расстояниями от точки (0.0) до точки x,y
          b2[i] = sqrt(sqr(x[i])+sqr(y[i])); // x[1] и y[1] должны хранится в b1[1] и тд, затем в b2[1] расстояние от точки (x[1],y[1]) до (0,0)
 end;
    for i := 1 to N do              //Сортировка расстояний (b2) 
        for j := 1 to N-i do
            if b2[j] < b2[j+1] then begin   //По убыванию расстояния до (0,0)!!!!!!!!!!!
                k := b2[j];
                b2[j] := b2[j+1];
                b2[j+1] := k
            end;
 
    write('Результат: ');
    for i := 1 to N-1 do
        write(b2[i] + ' '); //Ответ 
                            //b2 это итог,отсортированные пары чисел по убыванию растояния точек до (0,0)!!!!!!!!!!!!!!!!!!!!!
end.