не могу заставить работать код в делфи

учусь на 1 курсе, т.к. все на удаленке, то материал воспринимаю не очень. Необходимо сделать лабу по информатике, но я не силен в этом. Если у кого-нибудь есть время ,что бы решить и объяснить ,буду очень благодарен. Сама задача не слишком сложная, все же 1 курс.