-- Rotter Gyorgy
-- Figyelem a bemutattot szimulacio hibakat is szemleltet, amelyek az utemezeshez kapcsolodnak!


with metros_szimulacio_elemei;
use metros_szimulacio_elemei;

procedure metros_szimulacio is

   Juli:Emberek.Utas(new string'("Juli"));
   Hedi:Emberek.M_Utas;
   Orsi:Emberek.M_Utas;

begin                   -- itt mar indulhat Juli

   -- taszk tipus peldanyositasok, minden utasitas utan indulhat az adott taszk peldany
   metroszerelvenyek(1):=new Szerelvenyek.Metro_taszk_tipus(new string'("M-001"));
   Hedi:=new Emberek.Utas(new string'("Hedi"));
   delay 5.0;
   Orsi:=new Emberek.Utas(new string'("Orsi"));
   metroszerelvenyek(2):=new Szerelvenyek.Metro_taszk_tipus(new string'("M-002"));

   -- ezekkel a sorokkal valoszinuleg nem er majd veget a szimulacio normalisan
   -- delay 6.0;
   -- Orsi:=new Emberek.Utas(new string'("Kiakaszto utas"));
end metros_szimulacio;  -- FONTOS: A szulo nem er veget, amig az osszes gyereke veget nem er...