Задача на координаты. (Pascal/Delhpi)

[Wild_klas]

Кто не будь знает как решить такое задание?
Заданный замкнутый контур нарисовать на миллиметровке, вычислить его площадь
и координаты центра тяжести с помощью простых геометрических формул. Создать программу для
вычисления с помощью модифицированной формулы Грина, сравнить результаты (они должны совпадать).
9. Замкнутый контур располагается между графиком функции Y = (1 | X |) (2 - | X |) и осью Х в диапазоне Х = -2 - 2,
определить его площадь и координаты центра тяжести с помощью модифицированной формулы Грина. Сравнить с ручным расчетом.

Пытался сделать но не получилось..:

uses
  SysUtils;

Type MasX=array [-2..2] of integer;
     MasY=array [-3..2] of integer;

Const
     Xm:masX=(0,-1,-2,2,1);
     Ym:MasY=(2,1,-1,-3,0);

Var X,Y,Yc,Xc,S0,S,Stx,Sty:real;
     i,n:integer;

begin
 S:=0;
 Stx:=0;
 Sty:=0;
  For i:=1 to n do
     Begin
            S0:=Xm[i-1]*Ym[i]-Xm[i]*Ym[i-1];
            S:=S+S0;
            Xc:=(Xm[i-1]+Xm[i])/3 ;
            Yc:=(Ym[i-1]+Ym[i])/3 ;
            Stx:=Stx+S0*Yc;
            Sty:=Sty+S0*Xc;
            X:=Sty/s;
            Y:=Stx/s;
 End;
 S:=Abs(0.5*S);
 Writeln(S:4:2);
 Writeln(x:4:2, y:4:2);
 Readln;
end.

[Mardessa]

uses
  SysUtils;

Type
    M=array [1..5] of integer;

Const
     X:M=(-2,-1,0,1,2);

Var
    i:integer;
    Y:M;
    S,S0,Stx,Sty,Xc,Yc,Xcw,Ycw:real;
begin
  for i:=1 to 7 do
    begin
     y[i]:=(1+abs(x[i]))*(2-abs(x[i]));
    end;
  for i:=2 to High(M) do
    begin
     S0:=(x[i-1]*y[i])-(x[i]*y[i-1]);
     Xc:=(x[i-1]+x[i])/3;
     Yc:=(y[i-1]+y[i])/3;
     Stx:=Stx+S0*Yc;
     Sty:=Sty+S0*Xc;
     S:=S+S0;
    end;

   Xcw:=Sty/S;
   Ycw:=Stx/S;
   S:=abs(0.5*S);

   Writeln('S= ', S:1:2);
   Writeln('Coordinati: ', 'X=', Xcw:1:2,' Y=',Ycw:1:2);
   Readln;
 end.