Задание в Паскале через записи

[Novenkaja]

Добрый вечер. Надеюсь не сильно побеспокоила.
Условие задания такое:
составить программу,которая реализует задание землемера,те.высчитать площадь многоугольника,если известноего длины сторон и угла между сторонами.Исследовать предложенную функцию и применить его в решении задания.

Проблема в том,что эта часть даже не компилируется,т.к. пишет что not found TComplExp,ExpPlus и другое ему не по нраву....
Буду признательна за отзывчивость и помощь))))

function NPlowadUglov(N:integer):real;
 const maxN=6   {Максимальное количество углов};
 var ugol,Sumuglov:real; Summa,Temp:TComplExp;
     Z:array[1..maxN-1] of TComplExp; k:integer;
 begin
  lSumuglov:=0;
  write('Vvedi dlinu 1-oj storoni');
  readln(z[1].read);
  z[1].arg:=0;
  for k:=2 to N-1 do
    begin
      write('Vvedi',k-1,'.ugol');
      readln(lenkis);
      Sumuglov:=Sumuglov+lenkis;
      Temp.arg:=Sumuglov*pi/180;
      write('Vvedi',k,'.dlinu storoni');
      readln(Temp.read);
      ExpPlus(Z[k],Z[k-1],Temp);
    end;
  Summa.read:=0; Summa.arg:=0;
  for k:=1 to N-2 do
    begin
      Temp.read:=z[k+1].read;
      Temp.arg:=-z[k+1].arg;
      ExpPlus(Summa,Summa,Temp);
    end;
  NPlowaduglov:=1/2*Summa.read*sin(Summa.arg);
  readln;
end.