Информатика - описать класс "собака" с методом. Пожалуйста посчитайте пожалуйста!!!

type
  Собака=class
 
  public
   
  procedure Голос;
  begin
    Writeln('Гав!')
  end;
end;

// пример вызова
begin
  var Тузик:=new Собака;
  Тузик.Голос
end.