динам. списки. Стандартные операции, Неккоректная процедура удаления эл-та. Опции

[Insomnia]

идея задачи в том: что бы произвести со списком различные действия. Проблема в удалении элемента списка по имени. Пробовал различные условия и составление процедуры/ процедур, но что бы полноценно из любого места удалял эл-т не выходит. Как пр: "если ввожу 3 эл-та и удаляю последний - все хорошо. но если следом удаляю 2 то он впринцепи прогоняет и выводит ответ: но вмете с тем и вылетает." . Косяк, я предполагаю, в неккоректных условиях, т.е. выходит за пределы списка.
опишите подробней пожалуйста мои ошибки.

P.S.
остальные условия работают хорошо, но если заметите недочеты , укажите их, пожалуйста.

[Insomnia]

вот молотый компот. Как просто-то. Спасибо. очень простая и понятная реализация.

еще вопрос. как мне написать корректный ввод номера телефона ? для имени я сделал: вроде хорошо. В плане рациональности не уверен правда.
я думаю что бы перевести mPhone в string и тогда функция CheckPhone будет аналогична CheckName . В этом случае смогу так же вводить с пробелами (" пр: 12 34 456 " ). Или суш. скрытый от меня более рацио-ый вар-т проверки корректного ввода без глобальных изменений во всей программе ?

P.S. недочеты я поправил почти все, осталось очистку списка сделать, но это не сложно.