Algoritmo propuesto a ejercicio de clase (Eliminar un dato de una lista simplemente ligada)

int p,q
lea dato
lea tope
p=q=tope
if(dato == tope(DATO)){
tope = tope(liga)
libere(p)
}
else{
while(p != NULL){
if(dato == p(DATO)){
q(liga) = p(liga)
libere(p)
break
}
else{
q=p
p=p(liga)
}
}
}