Question

SOBRE ESSE ALGORITMO, AONDE ESTÁ O ERRO?

Answer 1

Bom , o primeiro erro é que o algoritmo está totalmente desalinhado.

Seria melhor assim

Var   nome,r:caracter
Inicio  escreval("Seu nome, senhor ?")
  leia(nome)
  se nome = "TOBIAS" entao
     escreva("Deseja explodir o mundo?") 
     leia(r) 
     se r = "sim" entao
        escreva("Universo já era")
     fimse
  senao
     escreva("Negado")
  fimse
fimalgoritmo

Recomendo se esforçar mais, se quer ser programador. 

Se não curte programar, se acha que está perdendo tempo, melhor deixar isso para lá e ir fazer algo que goste.

Esse programa que você escreveu estava muuuuuito por fora, perdoe-me pela franqueza

Você confundiu valor com variável, não aninhou os SE's corretamente e não entendeu a sequencia de ler um dado e depois compará-lo com alguma coisa.