1*a5a4af3bSchristos program hello; 2*a5a4af3bSchristos 3*a5a4af3bSchristos var 4*a5a4af3bSchristos st : string; 5*a5a4af3bSchristos 6*a5a4af3bSchristos procedure print_hello; 7*a5a4af3bSchristos begin 8*a5a4af3bSchristos Writeln('Before assignment'); { set breakpoint 1 here } 9*a5a4af3bSchristos st:='Hello, world!'; 10*a5a4af3bSchristos writeln(st); {set breakpoint 2 here } 11*a5a4af3bSchristos end; 12*a5a4af3bSchristos 13*a5a4af3bSchristos begin 14*a5a4af3bSchristos print_hello; 15*a5a4af3bSchristos end. 16