procedure diagonal(var m: tipo_matriz);
var
   i, j	: integer;
begin
   for i :=1 to n_linhas do
      for j :=1 to n_colunas do
	 if (i <> j) then
	    m[i,j] = 0
	 else
	    m[i,j] = 1;
end;