Update II - lab 2/lab2.pas