program e;
var mas 2 : array [1..10, 1..10] of
integer;
i, j, k : integer
begin
for i := 1 to 10 do -⇒ здесь
for j := 1 to 10 do -⇒ здесь
read (mas2[i, j];
(mas2[1+j]<0); - отсюда мог перепутать порядок
for i := 1 to 10 do -⇒ и здесь
for j := 1 to 10 do -⇒ и здесь
then
k := k+1
writeln(k)
end.

ВОПРОС : Почему цикл for используется два раза ?