Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности - Turbo Pascal

Задана последовательность А1,......А20), не содержащая одинаковых элементов.

1. Удалить элемент последовательности, наиболее близкий по
значению к максимальному в данной последовательности.
Под удалением элемента из массива понимать исключении этого
элемента путём смещения всех следующих за ним элементов влево
на 1 позицию и присвоение последнеиу элементу массива —0.

2. преобразованную последовательность, упорядочить по возрастанию.
Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел