1. (Выслала мне код по исправленному адресу?)
2. Массив.
а) Первый индекс влез в границы 1..5?
б) Второй индекс влез в границы 1..104*4?
3. rol. Длина этой строки не превышает 10? (определение поля 'ROL_PASP_NUM' в БД)
Ещё подозрение. К таблице bloc сразу два обращения. Сделай в две команды:
Код:
var s:string[10];
...
s:= ...;
mas[i, j].rol:= s;