С клавиатуры вводится матрица вещественных чисел размером N на M. N не превосходит 10, M не превосходит 20. Найти и вывести

program zz1;const n = 2; m = 2; // задаем количество элементов в массивеvar i, j, k, p:integer; // задаем переменные целого типаb:array [1..n, 1..m] of real;beginfor i:=1 to n do for j:=1 to m do // вводим числа в массив read(b[i,j]);for i:=1 to n do  begin for j:=1 to m do if b[i,j] = 0 then k:=k + 1; if k = m then begin p:=i; break; end; k:=0; end; if p = 0 then write( \' строки со всеми нулями нет \') // выводим ответelse write(\' номер первой строки со всеми нулями = \', i);end.