Помогите написать двумерный массив в Delphi7. Очень нужна ваша помощь. Заранее благодарю))

Задана матрица A(IxJ). Определить номер строки, имеющей наименьшее произведение элементов.

Я пытался написать программу, но она не работает. Вот что у меня получилось: