программа должна искать строку с нулевым элементом

[turboprogrammer]

но он всегда выдает что это 1 строка
program f;
const lmax=20;
type matr=array[1..lmax,1..lmax] of integer;
var na,nb,i,j,c,i1,v:integer;
a:matr;
flag1:boolean;
begin
writeln('Введите число строк и столбцов в матрице 0<na<=lmax 0<nb<=lmax');
repeat
read(na,nb);
until (na>0) and (nb>0) and (na<=lmax) and (nb<=lmax);
writeln('Введите матрицу');
for i:=1 to na do
for j:=1 to nb do
read(a[i,j]);
j:=1;
v:=0;
for i:=1 to na do
while flag1=false do
begin
if a[i,j]=0 then begin
v:=i;
flag1:=true;
end
else j:=j+1;
end;
writeln(v);
end.

[Black Fregat]

Она никогда не перейдет на вторую строку - будет наращивать j до бесконечности, пока не наткнётся на хоть какой-нибудь нуль. Поменяйте условие внутреннего цикла - добавьте проверку, чтобы индекс j не выходил за границу массива.