Найти в матрице номера строк и столбцов, не содержащих единицы

const nmax=20;
var k:array[1..nmax,1..nmax]  of integer;
    m,i,j,e,q:byte;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    k[i,j]:=random(2);
    if k[i,j]=1 then k[i,j]:=random(2);//повышаем вероятность нолей
    write(k[i,j]:3);
   end;
  writeln;
 end;
writeln('Номера строк в которых нет единиц');
q:=0;
for i:=1 to m do
 begin
  e:=0;
  j:=1;
  while (j<=m)and(e=0) do
  if k[i,j]=1 then e:=1
  else inc(j);
  if e=0 then
   begin
    write(i:3);
    q:=1;
   end
 end;
if q=0 then writeln('Таких строк нет');
writeln;
writeln('Номера столбцов в которых нет единиц');
q:=0;
for j:=1 to m do
 begin
  e:=0;
  i:=1;
  while (i<=m)and(e=0) do
  if k[i,j]=1 then e:=1
  else inc(i);
  if e=0 then
   begin
    write(j:3);
    q:=1;
   end
 end;
if q=0 then writeln('Таких строк нет');
end.

  q:=0;
  for i:=1 to m do begin
    j:=n; while (j>0) and (k[i,j]<>1) do Dec(j);
    if j=0 then begin
      Write(' ',i); Inc(q);
    end;
  end;
  if q=0 then Write('Таких строк нет');
  WriteLn;

  q:=0;
  for j:=1 to n do begin
    i:=m; while (i>0) and (k[i,j]<>1) do Dec(i);
    if i=0 then begin
      Write(' ',j); Inc(q);
    end;
  end; 
  if q=0 then Write('Таких столбцов нет');
  WriteLn;