Update unit1.pas

исправлены ошибки
Merge pull request #1 from PlukchiA/patch-1

Update unit1.pas