[NumLock]

для начала так, это уже можно компилировать:

Код:

type
  TAnimal = class
  private
    { Private declarations }
  public
    { Public declarations }
  end;