Решение представлено во вложениях.
Язык: Pascal
Примечание:
Индексация массива начинается с 0.
(1) - (4) скриншоты - сама программа.
(5) скриншот - результат работы программы.
Файл с исходным кодом могу отправить на почту (оставь свою почту в комментариях, если это необходимо), сюда во вложения он не влезает.
