Написать программу. Содержащую подпрограмму. Которая копирует в конец непустого списка М его последний элемент. Если элементы не найдены, то выдать на экран соответствующие сообщение.

x:xs -> x:x:xs

если не сложно то напиши весь код, а то паскаль это не моё.заранее благодарен