Program Family2;

uses

  MainUnit;

begin

  repeat

    MainLoop;

  until false;

end.