Тип запись

program lab_10; 
 
Uses Crt; 
type 
 decart = record 
 x: double; 
 y: double; 
 r: double; 
 a:double; 
 end; 
 
 
 procedure input( var x:double;y:double); 
 var 
 d: decart; 
begin 
 write('Точка в декартовых координатах (x,y): '); 
 readln(d.x, d.y); 
 end; 
 
 
function decart_to_polar( x: decart; y: decart):double; 
var 
d:decart; 
begin 
 d.r := sqrt(d.x * d.x + d.y * d.y); 
 d.a := ArcTan(d.y / d.x); 
end; 
 
 
Procedure output( a:decart;r:decart); 
var 
d:decart; 
 begin 
 writeln('Полярные координаты: ', d.r:6:4, d.a:10:6); 
end; 
 
 
var 
 d: decart; 
 a:decart; 
 r:decart; 
 x:decart; 
 y:decart; 
begin 
 clrscr; 
writeln('Данная программа преобразует координаты точки на плоскости из декарто-вой в полярные.'); 
input(d.x,d.y); 
 decart_to_polar(x,y); 
output(a,r); 
 writeln; 
 readln(); 
end.

type
  Point = record
    
    x,y: real;
    
    constructor(x,y: real);
    begin
      self.x := x;
      self.y := y;
    end;
    
    function DecartToPolar: Point;
    begin
      Result.x := sqrt(sqr(x)+sqr(y));
      Result.y := System.Math.Atan2(y,x);
    end;
    
    function PolarToDecart: Point;
    begin
      var sa := Sin(y);
      var ca := Cos(y);
      Result.x := ca*x;
      Result.y := sa*x;
    end;
    
    function Print: Point;
    begin
      x.Print; y.Print;
      Result := self;
    end;
    
  end;
 
function ReadPoint :=
new Point(ReadReal,ReadReal);
 
begin
  ReadPoint.DecartToPolar.Print;
end.