Создать в паскале одномерный массив из 30 элементов (рандомом). Найти все максимальные значения массива и удалить их. Вывести получившийся массив.