описание класса в паскале

[ai\ekcah^p]

Описать класс tPoint, инкапсулирующий основные свойства и методы точки на плоскости. Создать массив из 100 точек. Нарисовать точки случайным образом случайным цветом на экране.

Тока начал изучать ООП , подскажите где неверно.
Вот модуль TOCHKA ->

Unit TOCHKA;
interface
TYPE
   tPoint=object
     x,y:integer;
     color:word;
     Procedure Draw;
   end;

implementation
Uses Crt,Graph;
    {методы tPoint}
Procedure tPoint.Draw;
begin
  PutPixel(x,y,color);
end;
end.

основная программа ->

PROGRAM GRAFICA;
Uses Crt,Graph,TOCHKA;
const p='';
VAR gd,gm,: integer;
    tx,ty:integer;
    i:integer;
    c:integer;
    mas:array[1..100] of tPoint;

BEGIN
     clrscr;
     randomize;
     gd:=Detect;
     InitGraph(gd,gm,p);
     for i:=1 to 100 do
     begin
       tx:=random(200);
       ty:=random(200);
       c:=random(16);
       mas[i].Draw(tx,ty,c);
     end;
     readln;

     closegraph;

END.