ООП (паскаль) - дан ромб. найти площадь. построить пирамиду, найти её площадь

[Rfn.if]

дан ромб (сторона и расстояние от центра до стороны ромба). найти площадь. построить на ромбе пирамиду (высота дана). определить площадь полной поверхности.

наброски программы:

PROGRAM OOP;
TYPE
romb = object
  l,w:real;
function pl:real;
procedure init (c,d:real);
end;
FUNCTION romb.pl
   begin
pt:=l*w/2;
pl:= pt*4;
   end;
PROCEDURE romb.init
   begin
l:=c;
w:=d;
   end;
   type
   piramuda = object(romb)
  h:real;
function pl:real;
procedure init (c,d:real);
end;
FUNCTION piramida.pl
   begin
   x:= sqrt(sqr(l)+sqr(h))
pt:=l*x/2;
pl:= pt*4;
   end;
PROCEDURE romb.init
   begin
l:=c;
w:=d;
x:=h;
   end;
   
VAR
b: romb;
	BEGIN
b.init(7.3);
writeln ('площадь =',b.pl);
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.