Составить программу, определяющую , содержится лив двумерном массиве строка, состоящая из нулевых элементов. Результат должен быть один (да) (нет) Можете посмотреть, что тут не так и подкорректировать/написать новую? Заранее спс)

Написано же: программа на языке PascalABC.NET 3.2

Можно вот так:program z3; const n1=20;//строки m1=20;//столбцыvarmas:array  [1..n1,1..m1] of integer;n,m,i,j,k,fl:integer;beginrandomize;writeln('Введите кол-во строк и столбцов через пробел');readln(n,m);for i:=1 to n do begin  for j:=1 to m do begin  mas[i,j]:=-1 + random(2);  write(mas[i,j]:3);  end;  writeln;  end;  writeln; fl:=0; for i:=1 to n do   begin  k:=0;  for j:=1 to m do   if mas[i,j] = 0 then k:=k+1;  if k=m then fl:=1;  end;  if fl = 1 then writeln('yes') else writeln('no');end.Пример:Введите кол-во строк и столбцов через пробел6 4 -1  0  0  0  0  0  0 -1  0  0  0  0  0 -1  0 -1 -1 -1  0 -1  0 -1 -1 -1yes