помогите пожалуйста с массивом в паскаль

Есть массив a:array[1..n] of integer, помогите пожалуйста составить часть программы: нужно удалить все элементы этого массива, расположенные между элементами под номерами Р и К, при это под удалением 1 элемента понимать исключение элемента путем смещения всех следующих за ним элементов влево на 1 позицию и присвоение последнему эл-ту значения 0.
Заранее благодарю.