flag1:=true; {ввести еще одну булеву переменную}
for i:=1 to 8 do 
 begin
  flag:=true;
  j:=0;
  Repeat
    Inc(j);
    if b[i,j]<>b[j,i] then flag:=false; 
  Until (flag=false) or (j=8);
  if flag then 
   begin
    writeln('k= ',i);
    flag1:=false;
   end;
 end;  
if flag1 then writeln('No such lines/columns!');