Задача 1. С клавиатуры вводится не более 100 слов, разделенных запятыми,
признак конца ввода -- конец файла. Определить, какая буква среди первых
букв этих слов встречается чаще всего, и удалить все ее вхождения из всех
слов. Вывести модифицированные слова в том же виде. в котором они вводились.

Магические числа недопустимы.

Полезные средства: Length, SetLength

Пример:
apple,banana,apricot,bean,aubergine,carrot
pple,bnn,pricot,ben,ubergine,crrot


Задача 2. С клавиатуры вводится последовательность не более 100 натуральных
чисел, признак конца последовательности -- 0. Далее вводится число K. Найти
индекс первого элемента, большего K, при просмотре с начала и с конца
последовательности. Вывести индексы и значения элементов. Повторять ввод K
в бесконечном цикле.

Поиск оформить в виде процедуры или функции.
Копипаста запрещена. Магические числа недопустимы.

Пример:
1 2 3 4 5 6 4 2 0
2
[3] = 3 and [7] = 4
1
[2] = 2 and [8] = 2
5
[6] = 6 and [6] = 6
10
not found