Программирование в Паскале: Использование Until