function simetrica (var mat: tipo_matriz): boolean;
var
   i, j	: integer;
   sim	: boolean;
begin
   sim := true;
   i := 1;
   while (i <= n_linhas) and sim do
   begin
      j := 1;
      while (j <= i) and sim do
      begin
	 if mat[j, i] <> mat[i, j] then
	    sim := false;
	 j := j + 1;
      end;
      i := i + 1;
   end;
   simetrica := sim;
end;