очень срочно....маленький вопрос по паскалю

Всё правильно, основная роль k - это флажок, показывающий, что в строке только положительные элементы. По совместительству это и номер текущей строки.
Почему-то вы выбрали самый неинтересный вариант из трёх предложенных. В двух других, где k булева переменная, явно видно, что это всего-навсего флаг.

program N58736265;
var a:array[1..100,1..100] of integer;
n,m,i,j:integer;
k:boolean;
begin
write('Введите кол-во строк: ');
readln(n);
write('Введите кол-во столбцов: ');
readln(m);
for i := 1 to n do
for j := 1 to m do
begin
write('Введите А [',i,',',j,']: ');
readln(a[ i, j ]);
end;
writeln('Строки только с положительными элементами: ');
for i := 1 to n do
begin
k := true;
j := 1;
while k and (j <= m) do
begin
k := a[ i, j ] > 0;
j := j + 1; {или inc(j);}
end;
if k then
writeln(i);
end;
readln
end.

Или вообще дикий вариант по-чайниковски с холостыми циклами FOR:
program N58736265_for;
var a:array[1..100,1..100] of integer;
n,m,i,j:integer;
k:boolean;
begin
write('Введите кол-во строк: ');
readln(n);
write('Введите кол-во столбцов: ');
readln(m);
for i := 1 to n do
for j := 1 to m do
begin
write('Введите А [',i,',',j,']: ');
readln(a[ i, j ]);
end;
writeln('Строки только с положительными элементами: ');
for i := 1 to n do
begin
k := true;
for j := 1 to m do
k := k and (a[ i, j ] > 0);
if k then
writeln(i);
end;
readln
end.

Можно преждевременно выйти из цикла с помощью break, как только в строке встретится первый неположительный элемент.
Но я преднамеренно не использую в выдаваемых на ответах программах операторы break, continue, exit, halt и goto, так как преподаватели чаще всего накладывают запрет на их использование в учебных программах.
Если так хочется писать программы с противоестественным ходом выполнения программы, то добро пожаловать в ассемблер или старый-престарый бейсик, где вы до тошноты напрыгаетесь с помощью jmp и goto :D)

Это k номер текущей строки и метка что ещё нет неположительных в строке
обнуляется при первом попавшемся неположительном и идёт переход к другой строке
кривовато, но - на беглый взгляд - должно сработать

ей присваевается значение переменной i

очевидно переменная где хранится ответ на вопрос задачи, проще спросить у того у кого прогу скопировали :)

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