procedure proc(_start, _end: byte); begin {организуем цикл for от _start до _end с шагом 1. Заводить новые переменные нельзя!} end;