for i:=1 to 5 do begin
for j:=1 to 5 fo begin
if a[i,j]=0 then
inc(k);
end; end;
if k=5 then 
переставляешь(надеюсь это ты сможешь)
else
writeln('not all lines of an element of 0");