ООП - нахождение сумм, площадей и периметров круга, прямоугольника, равностороннего треугольника, квадрата ( ДЕЛФИ МОДУЛИ )

[Pyxy]

Реализовать средства объективно-ориентированного подхода алгоритма нахождения сумм площадей и периметров круга, прямоугольника, равностороннего треугольника, квадрата. Обеспечить возможность выбора типа фигуры.
я сделала но оно не запускается, и еще я не знаю как сделать для круга и треугольника
Модуль

unit geom_fig;

interface
 type
 TGeomFigyre=class (TObject);
 function Plosha: integer; virtyal; abstract;
 function Perimetr: integer; virtyal; abstract;
 function InputData: integer; virtyal; abstract;
 end;

 TSquare=class(TGeomFigyre)
 side: integer;
 function Plosha: integer; override;
 function Perimetr: integer; override;
 function InputData: boolean; override;
end;

 TRectangle=class(TGeomFigyre)
 side1,side2: integer;
 function Plosha: integer; override;
 function Perimetr: integer; override;
 function InputData: boolean; override;
end;
  implementation
  function TSquare.Plosha: integer;
  begin
  Plosha:=side*side;
  end;
    function TSquare.Perimetr: integer;
    begin
    Perimetr:4*side;
    end;
 function TSquare.InputData: boolean;
 begin
 writeln ('Vvedenia parametriv kvadrata');
 write ('Vvedit storony  kvadrata:  ');
 readelen (side);
 if side <=0 then InputData: false
 else InputData: true;
 end;
 function TRectangle.Plosha: integer;
 begin
 Plosha:=side1*side2;
 end;
 function TRectangle.Perimetr: integer;
 begin
 Perimetr:=(side1*side2)*2;
 function TRectangle.InputData: boolean;
  begin
  writeln ('Vvedenia parametriv pramokytnuka');
  write    ('Vvedit storony  pramokytnuka:  ');
  readelen (side1, side2,);
 if (side1 <=0)or (side2 <=0)  then InputData: false
 else InputData: true;
   end;
   end.

програма

program Geom_fig;
  uses
  SysUtils,

geom_fig in'geom_fig.pas';

 {$APPTYPE CONSOLE}

const n=3;
var
aFiguret:array[1..n] of TGeomFifure;
sum_plosh,sum_perim: integer;
i: integer;
tup: char;
begin
write ( 'Zadaute tup figyru:   ');
readln (tup);
writeln;
for i:=l to n do
case tup of
'k' aFigure [i]: TSquare.Create;І
'p': aFigure[i] ;TRectangle.Create;
end;
for i:=l to n do
if not Figure[i].InputData then
begin
write ('Pomulka vvedenna danux ');
exit;
end;
sum__plosh:=0; sum_perim:=0;
for і:=1 to n do 
begin
sum_plosh:=sum_plosh+aFigure[i].Plosha;
sum_perim:=sum_perim+aFigure[i].Perimetr; end;
writeln;
writeln ('Cyma plosh = ',sum_plosh);
writeln ('Cyma perimetriv = ',sumjperim); readln;
end.

_________
Убедительнейшая просьба - давать название темы так,
чтобы название адекватно отражало суть решаемой задачи/проблемы.
эту тему я исправил.
Но в будущем неукоснительно соблюдайте это правило!

Модератор.