Выделить часть программы в отдельную процедуру