На плоскости своими координатами задано 40 точек, найти расстояние от начала координат до удаленной точки

program _xy;
 
const 
 
 N = 40;
 
type 
 
 TPosition = record
  x : real;
  y : real;
 end;
 
var
 
 i   : integer;
 pos : TPosition;
 
function GetRandomPos(lb,rb:integer):TPosition;
{ возвращает случайную координату из (lb,rb) }
 var
  Pos:TPosition;
  
 function RandomReal(left,right:integer):real;
 {возвращает случайное вещественное число из диапазонa (left,right)                                                    }
  var
   x    : real;
   sign : 0..1;
 begin 
  if left<right then 
  begin
   if right <= 0  then repeat
                         x:=-Random(Abs(left));
                         x:=x+random();
                       until x<=right  
                  else repeat 
                        x:=Random(right);
                        sign:=random(2);
                        x:=x+random();
                        if sign>0 then x:=-x;
                       until (x>=left) and (x<=right);
   RandomReal:=x;
  end else RandomReal:=0;
 end; 
begin
 Pos.x:=randomReal(lb,rb);
 Pos.y:=randomReal(lb,rb);
 GetRandomPos:=Pos;
end;
 
function GetDist(const Position:TPosition):real;
 var
  x,y : real;
begin
 x:=Position.x;
 y:=Position.y;
 GetDist:=SQRT(SQR(x)+ SQR(y));
end;
 
BEGIN
 for i:=1 to N do 
  begin
   pos:=GetRandomPos(-100,100);
   writeln('от начала координат до (',pos.x:0:2,',',pos.y:0:2,'): '
            ,GetDist(pos):0:2);
  end;
END.