Математический маятник

[StudeHt]

Здравствуйте, уважаемые эксперты! Вот есть задача:Написать программу, имитирующую движение математического маятника.
Порывшись в инете кое-что нашел, но ни как не могу, это исправить, вот код:

uses Graph, crt;
const Pi=3.14159265;
      g=9.81;

procedure InitializationGraphicMode;
var grDriver,grMode,ErrCode:integer;
begin
  grDriver:=Detect;
  InitGraph(grDriver,grMode,'');
  ErrCode:=GraphResult;
  if ErrCode<>grOk then
    begin
      writeln('Ошибка инициализации графического режима!');
      writeln('Для завершения программы нажмите Enter ');
      readln;
      Halt;
    end;
end;

procedure InputCharacteristics(var L,Alpha,A:integer);
begin
  TextColor(11);
  GotoXY(25,8);
  write('Введите длину нити ');
  readln(L);
  GotoXY(25,10);
  write('Введите начальное отклонение ');
  readln(Alpha);
  GotoXY(25,12);
  write('Введите амплитуду колебаний ');
  readln(A);
end;

procedure Draw(L,Alpha,A:integer);
var x,y,Time:integer;
    T:real;
begin
  T:=2*Pi*sqrt(L/g);
  Time:=0; x:=160; y:=170;
  while Time<=2*T do
    begin
      PutPixel(round(x),round(y),white);
      SetColor(black);
      Circle(x,y,5);
      Inc(Time);
      x:=160+2*round((A*cos(2*Pi/T*Time)));
      y:=170-2*round((L-sqrt(L*L-A*A))*Abs(cos(2*Pi/T*Time)));
      PutPixel(x,y,white);
      SetColor(white);
      Circle(x,y,5);
      delay(100);
    end;
end;

var L,Alpha,A:integer;
begin
  clrscr;
  InputCharacteristics(L,Alpha,A);
  InitializationGraphicMode;
  Draw(L,Alpha,A);
  CloseGraph;
  readln;
end.

Но у меня не получается добавить в программу нить математического маятника И есть еще вопрос, как учесть в программе начальное отклонение маятника? Помогите исправить ошибки, заранее огромное спасибо!