Решение в общем верное, только возник один вопрос.
Цитата:
Сообщение от ummasha
randomize;
.....
a[i,j]:=random(1)+1;
|
А это вам зачем? Вы генерируете случайное значение из интервала (0;1) и увеличиваете его на 1. При этом у вас все равно элемент массива получает значение 1, так как этот массив целочисленный.
Не проще ли написать просто присвоение a[i,j]:=1; не используя генератор псевдослучайных чисел совсем?