Titanic

var titanic:ship;
        jack,rose:human;

begin
  jack.inlove:=false;
  rose.inlove:=false;
  while jack.inlove=false do begin
    delay(5000000);
    jack.interact(rose);
  end;
  jack.alive:=false;
end.
Vote up this code2