Создать объект животное

type
    TAnimal = object
     Class: String;
     Color: String;
     Childs: Integer;
     constructor Init(AnimalClass,AnimalColor: String);
    end;
 
    THomeAnimal = object(TAnimal)
     Nickname: String;
     Master: String;
     constructor Init(AnimalClass,AnimalColor,AnimalNickname,AnimalMaster: String);
     procedure Print;
    end;
 
constructor TAnimal.Init(AnimalClass,AnimalColor: String);
begin
 Class := AnimalClass;
 Color := AnimalColor;
end;
 
constructor THomeAnimal.Init(AnimalClass,AnimalColor,AnimalNickname,AnimalMaster: String);
begin
 TAnimal.Init(AnimalClass,AnimalColor);
 Nickname := AnimalNickname;
 Master := AnimalMaster;
end;
 
procedure THomeAnimal.Print;
begin
 WriteLn('|',Class:8,'|',Color:10,'|',NickName:14,'|',Master:10,'|',Childs:3,'|');
end;
 
var
   Animals: Array[1..6] of THomeAnimal;
   i: Integer;
begin
 ClrScr;
 Animals[1].Init('Кот','Полосатый','Матроскин','Дядя Федор');
 Animals[2].Init('Пес','Коричневый','Шарик','Дядя Федор');
 Animals[3].Init('Скворец','Черный','КтоТама','Дядя Федор');
 Animals[4].Init('Человек','Рыжий','Дядя Федор','Мама');
 Animals[5].Init('Человек','Рыжий','Вера Павловна','Мама');
 Animals[6].Init('Человек','Рыжий','Мама','Папа');
 Animals[6].Childs := 2;
 for i := 1 to 6 do Animals[i].Print;
 ReadLn;
end.

type
    TAnimal = object
     category: String;
     Color: String;
     Childs: Integer;
     constructor Init(Animalcategory,AnimalColor: String);
    end;
 
    THomeAnimal = object(TAnimal)
     Nickname: String;
     Master: String;
     constructor Init(Animalcategory,AnimalColor,AnimalNickname,AnimalMaster: String);
     procedure Print;
    end;
 
constructor TAnimal.Init(Animalcategory,AnimalColor: String);
begin
 category := Animalcategory;
 Color := AnimalColor;
end;
 
constructor THomeAnimal.Init(Animalcategory,AnimalColor,AnimalNickname,AnimalMaster: String);
begin
 TAnimal.Init(Animalcategory,AnimalColor);
 Nickname := AnimalNickname;
 Master := AnimalMaster;
end;
 
procedure THomeAnimal.Print;
begin
 WriteLn('|',category:8,'|',Color:10,'|',NickName:14,'|',Master:10,'|',Childs:3,'|');
end;
 
var
   Animals: Array[1..6] of THomeAnimal;
   i: Integer;
begin
 ClrScr;
 Animals[1].Init('Кот','Полосатый','Матроскин','Дядя Федор');
 Animals[2].Init('Пес','Коричневый','Шарик','Дядя Федор');
 Animals[3].Init('Скворец','Черный','КтоТама','Дядя Федор');
 Animals[4].Init('Человек','Рыжий','Дядя Федор','Мама');
 Animals[5].Init('Человек','Рыжий','Вера Павловна','Мама');
 Animals[6].Init('Человек','Рыжий','Мама','Папа');
 Animals[6].Childs := 2;
 for i := 1 to 6 do Animals[i].Print;
 ReadLn;
end.

type
    TAnimal = class
     category: String;
     Color: String;
     Childs: Integer;
     constructor (Animalcategory,AnimalColor: String);
    end;
 
    THomeAnimal = class(TAnimal)
     Nickname: String;
     Master: String;
     constructor (Animalcategory,AnimalColor,AnimalNickname,AnimalMaster: String);
     procedure Print;
    end;
 
constructor TAnimal.create(Animalcategory,AnimalColor: String);
begin
 category := Animalcategory;
 Color := AnimalColor;
end;
 
constructor THomeAnimal.create(Animalcategory,AnimalColor,AnimalNickname,AnimalMaster: String);
begin
 TAnimal.create(Animalcategory,AnimalColor);
 Nickname := AnimalNickname;
 Master := AnimalMaster;
end;
 
procedure THomeAnimal.Print;
begin
 WriteLn('|',category:8,'|',Color:10,'|',NickName:14,'|',Master:10,'|',Childs:3,'|');
end;
 
var
   Animals: Array[1..6] of THomeAnimal;
   i: Integer;
begin
 Animals[1] := new THomeAnimal('Кот','Полосатый','Матроскин','Дядя Федор');
 Animals[2] := new THomeAnimal('Пес','Коричневый','Шарик','Дядя Федор');
 Animals[3] := new THomeAnimal('Скворец','Черный','КтоТама','Дядя Федор');
 Animals[4] := new THomeAnimal('Человек','Рыжий','Дядя Федор','Мама');
 Animals[5] := new THomeAnimal('Человек','Рыжий','Вера Павловна','Мама');
 Animals[6] := new THomeAnimal('Человек','Рыжий','Мама','Папа');
 Animals[6].Childs := 2;
 for i := 1 to 6 do Animals[i].Print;
 ReadLn;
end.