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