only using add, sub, addi, sw$,$ lw: help me write this code:

a$[$k$]=(*$p$)-($a$[4*$k$+7]-6)$;

# Assume $s$0<-$ a

# Assume $s$1<-$ k

# Assume $s$2<-$ p

add $t$1,$$s$1,$$s$1$ #t$1<-2$k

add $t$1,$$t$1,$$t$1$ #t$1<-4$k

add $t$2,$$t$1,$$t$1$ #t$2<-8$k

add $t$2,$$t$2,$$t$2$ #t$2<-16$k

add $t$3,$$t$1,$$s$0$ #t$3<-$address of a$[$k$]$

lw $t$3,0($$t$3)$ # t$3<-$ a$[$k$]$

add $t$4,$$s$0,$$t$2$ # t$4<-$ address of a$[4$k$]$

sw $t$4,28($$t$4)$ #t$4<-$ a$[4$k$+7]$

addi $t$4,$$t$3,-6$ # t$4<-$ a$[4$k$+7]-6$

sub $t$4,$$s$2,$$t$4$ # t$4<-*$p $-$ a$[4$k$+7]-6$

sw $t$3,0($$t$4)$ #a$[$k$]=*$p$-($a$[4*$k$+7)-6)$

please let me know if its correct