Мне нужен рабочий код на Паскале

Мне нужен рабочий код на Паскале для решения задачи.

1) мне нужен код на паскале, возможно не один.

2) Программирование, остальное не так важно

3) До завтрашнего дня.

Задача следующая: Даны целые числа A1, ..., A10, целочисленная квадратная матрица порядка n. Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди A1, ..., A10.

обязательно должно использоваться random