Разработать программу вывода графика произвольной функции

Program graph;
  Var
    Data : array [1..1000] of  real;
    NumbData : integer;
  Procedure MyGraph;
  Var
    xPos,yPos,i:integer;
    DataMax,DataMin :  real;
  Begin
    DataMin:=Data[1];
    DataMax:=Data[1];
    For i:=2 to NumbData do
      Begin
        If Data[i]>DataMax then
          DataMax:=Data[i];
        If Data[i]<DataMin then
          DataMin:=Data[i];
      end;
    If DataMin>0.0 then
      yPos:=300
    else
      If DataMax<0.0 then
        yPos:=0
      else
        yPos:=round(300-(0.0-DataMin)/(DataMax-DataMin)*300);
    Color(0,0,200);
    BrushColor(0,250,250);
    Rectangle(0,0,405,305);
     BrushColor (200,0,200);
    yPos:=round(300-(Data[1]-DataMin)/(DataMax-DataMin)*300);
    Ellipse(-4,yPos-4,4,yPos+4);
    MoveTo(0,yPos);
    For i:=2 to NumbData do
      Begin
        xPos:=round(i*400/NumbData);
        yPos:=round(300-(Data[i]-DataMin)/(DataMax-DataMin)*300);
        LineTo(xPos,yPos);
        Ellipse(xPos-4,yPos-4,xPos+4,yPos+4);
      end;
  end;
  Begin
    NumbData:=0;
    For NumbData:=1 to 100 do
      Begin
        Data[NumbData]:=sin(NumbData*0.2);
      end;
    MyGraph;
  end.