Пожалуйста посчитайте выдает ошибку мол: индекс находился вне границ массива!!!Уже стол проломал головой(program Nimber4;var mas:array [0..2,0..7] of integer; sumplus: integer;a,b: integer;beginsumplus:=0;For a:=0 to 7 dobeginFor b:=0 to 2 do beginwriteln('Введите элемент массива', '(', a, ',', b, ')'); //works right readln(mas[a,b]); //works rightif (mas[a,b]>0) then beginsumplus := sumplus + mas[a,b];end;end;writeln('Сумма положительных чисел в строке: ',sumplus);sumplus := 0;end;end.