Описать абстрактный класс "фигура", от этого класса сделать 3 потомка: треугольник, круг и квадрат

uses
  crt;
type
  TFigura = object
    x,y : real;
    procedure Init(ax,ay:real);
  end;
  procedure TFigura.Init(ax,ay:real);
  begin
    x := ax; y := ay;
  end;
 
type
  TTriang = object(TFigura)
    a,s : real;
    procedure Init(ax1,ay1,ax2,ay2:real);
    procedure Area;
  end;
  procedure TTriang.Init(ax1,ay1,ax2,ay2:real);
  begin
    Inherited Init(ax1,ay1);
    a := sqrt(sqr(x-ax2)+sqr(y-ay2));
  end;
  procedure TTriang.Area;
  begin
    s := sqrt(3)/4*sqr(a);
  end;
 
type TCircl = object(TFigura)
     r,s : real;
     procedure Init(ax1,ay1,ax2,ay2:real);
     procedure Area;
  end;
  procedure TCircl.Init(ax1,ay1,ax2,ay2:real);
  begin
    inherited Init(ax1,ay1);
    r := sqrt(sqr(x-ax2)+sqr(y-ay2));
  end;
  procedure TCircl.Area;
  begin
    s := 2*Pi*sqr(r);
  end;
 
type TSquar = object(TFigura)
     a,s : real;
     procedure Init(ax1,ay1,ax2,ay2:real);
     procedure Area;
  end;
  procedure TSquar.Init(ax1,ay1,ax2,ay2:real);
  begin
    inherited Init(ax1,ay1);
    a := sqrt(sqr(x-ax2)+sqr(y-ay2));
  end;
  procedure TSquar.Area;
  begin
    s := sqr(a);
  end;
 
type TPrsmTr = object(TTriang)
     h,V : real;
     procedure Init(ax1,ay1,ax2,ay2,ah:real);
     procedure VPrs;
  end;
  procedure TPrsmTr.Init(ax1,ay1,ax2,ay2,ah:real);
  begin
    inherited Init(ax1,ay1,ax2,ay2);
    h := ah;
  end;
  procedure TPrsmTr.VPrs;
  begin
    inherited Area;
    V := s*h;
  end;
 
type TPrsmSq = object(TSquar)
     h,V : real;
     procedure Init(ax1,ay1,ax2,ay2,ah:real);
     procedure VPrs;
  end;
  procedure TPrsmSq.Init(ax1,ay1,ax2,ay2,ah:real);
  begin
    inherited Init(ax1,ay1,ax2,ay2);
    h := ah;
  end;
  procedure TPrsmSq.VPrs;
  begin
    inherited Area;
    V := s*h;
  end;
type TCone = object(TCircl)
     h,V : real;
     procedure Init(ax1,ay1,ax2,ay2,ah:real);
     procedure VCone;
   end;
   procedure TCone.Init(ax1,ay1,ax2,ay2,ah:real);
   begin
     inherited Init(ax1,ay1,ax2,ay2);
     h := ah;
   end;
   procedure TCone.VCone;
   begin
     inherited Area;
     V := s*h/3;
   end;
 
var T : TTriang;
    C : TCircl;
    Sq : TSquar;
    PTr : TPrsmTr;
    PSq : TPrsmSq;
    Cn : TCone;
    x1, y1, x2, y2, h : real;
    s : real;
begin
  clrscr;
  write('x1 = '); readln(x1);
  write('y1 = '); readln(y1);
  write('x2 = '); readln(x2);
  write('y2 = '); readln(y2);
  T.Init(x1,y1,x2,y2);
  T.Area;
  writeln('Area of triangle :',T.s:7:3);
  C.Init(x1,y1,x2,y2);
  C.Area;
  writeln('Area of circle :',C.s:7:3);
  Sq.Init(x1,y1,x2,y2);
  Sq.Area;
  writeln('Area of square :',Sq.s:7:3);
  write('h = '); readln(h);
  PTr.Init(x1,y1,x2,y2,h);
  PTr.VPrs;
  writeln('Volume of triangular prism :',PTr.V:7:3);
  PSq.Init(x1,y1,x2,y2,h);
  PSq.VPrs;
  writeln('Volume of rectangular prism :',PSq.V:7:3);
  Cn.Init(x1,y1,x2,y2,h);
  Cn.VCone;
  writeln('Volume of cone :',Cn.V:7:3);
  readln;
end.