Выдать на печать координаты точек по возрастанию угла между осью абсцисс и лучом

type point=record
               n:byte;//номер точки
               x,y:real;//координаты
               end;

uses crt;
function Prov(x,y:real):boolean;
begin
Prov:=(x>0)and(y>0);
end;
function Tg(x,y:real):real;
begin
Tg:=y/x;
end;
Procedure Sort(ax,ay,bx,by,cx,cy:real; var x1,y1,x2,y2,x3,y3:real);
var i:byte;
    mx,mn,sr:real;
begin
mn:=Tg(ax,ay);x1:=ax;y1:=ay;
if Tg(bx,by)<mn then
  begin
   x1:=bx;y1:=by;
  end;
if Tg(cx,cy)<mn then
  begin
   x1:=cx;y1:=cy;
  end;
mx:=Tg(ax,ay);x3:=ax;y3:=ay;
if Tg(bx,by)>mx then
  begin
   x3:=bx;y3:=by;
  end;
if Tg(cx,cy)>mx then
  begin
   x3:=cx;y3:=cy;
  end;
x2:=ax+bx+cx-x1-x3;
y2:=ay+by+cy-y1-y3;
writeln(x1:0:2,'  ',y1:0:2);
writeln(x2:0:2,'  ',y2:0:2);
writeln(x3:0:2,'  ',y3:0:2);
end;
 
var x1,x2,y1,y2,z1,z2:real;
    k1,k2,k3,k4,k5,k6:real;
begin
clrscr;
writeln('Введите координаты трех точек в первом квадранте:');
repeat
writeln(' точка Х:');
readln(x1,x2);
until Prov(x1,x2);
repeat
writeln(' точка Y:');
readln(y1,y2);
until Prov(y1,y2);
repeat
writeln(' точка Z:');
readln(z1,z2);
until Prov(z1,z2);
writeln('Координаты по возрастанию угла луча с осью Х:');
Sort(x1,x2,y1,y2,z1,z2,k1,k2,k3,k4,k5,k6);
readln
end.