HelloWorld.pas

program HappyLife;

{$X+}

const
  God = infinity;

uses
  World;

var
  Voitcus, Mom, Dad: THuman;
  birth_date: TDate;

begin
  birth_date := year(1977);
  Voitcus := THuman.Create(birth_date, Mom, Dad);
  while (Voitcus.isAlive and (System.date <= EndOfTheWorld)) do begin
    { insert your code here }
    end;
end.