иерархия классов ООП

[Astro4ka]

Напишите программу, в которой необходимо реализовать следующую иерархию классов: суперкласс ягоды имеет двух потомков – 1) ягоды съедобные и 2) ягоды ядовитые. В суперклассе определить абстрактный виртуальный метод, который затем переопределить в потомках.

[ZaRDaK]

Какой язык программирования?

[Astro4ka]

паскаль(((((((

[ZaRDaK]

  type
   TJagoda = class
    public
    procedure eat(); virtual;
   end;

   TSjedobnayaJagoda = class (TJagoda)
    public
    procedure eat(); override;
   end;

   TJadivitayaJagoda = class (TJagoda)
    public
    procedure eat(); override;
   end;

procedure TJagoda.eat();
begin
end;

procedure TSjedobnayaJagoda.eat();
begin
end;

procedure TJadivitayaJagoda.eat();
begin
end;

Прошу поправить, если что.