Исправлен uni1.pas в прогр1