Update Prac10Ej6.pas