Flávio Jussiê

Olá a todos. Sou novo na programação, estou começando minha graduação em analise e desenvolvimento de sistema e estou iniciando lógica de programação. Recentemente me foi proposto criar no Visualg um jogo da velha. Criei este algoritmo, ele está funcionando perfeitamente: algoritmo "jogodavelha" var jog: vetor[1..3,1..3] de caractere comp,cont, i, j, a, b, fim: inteiro resp, aux: caractere procedimento interface() inicio escreval ("===================") escreval (" JOGO DA VELHA ") escreval ("+-----+-----+-----+") para i de 1 ate 3 faca para j de 1 ate 3 faca escreva ("| ") escreva (jog[i,j]:4) fimpara escreva ("|") escreval () escreval ("+-----+-----+-----+") fimpara fimprocedimento inicio comp <- 1 para i de 1 ate 3 faca para j de 1 ate 3 faca cont <- cont+1 jog[i,j] <- NumpCarac(cont) fimpara fimpara interface() repita escreval () escreva ("Jogar onde? ") leia (resp) a <- 1 b <- 1 enquanto (jog[a,b] <> resp) faca se (jog[a,b] <> resp) então b <- b + 1 se (b > 3) então a <- a + 1 b <- 1 fimse se (a > 3) então a <- 1 limpatela interface() escreval () escreva ("Jogada inválida, escolha outra: ") leia (resp) fimse fimse fimenquanto escolha comp caso 1 jog[a,b] <- "X" caso 2 jog[a,b] <- "O" comp <- 0 fimescolha comp <- comp + 1 limpatela interface () para i de 1 ate 3 faca se (jog[i,1] = jog[i,2]) e (jog[i,2] = jog[i,3]) então fim <- 1 fimse fimpara para i de 1 ate 3 faca se (jog[1,i] = jog[2,i]) e (jog[2,i] = jog[3,i]) então fim <- 1 fimse fimpara se (jog[1,1] = jog[2,2]) e (jog[2,2] = jog[3,3]) então fim <- 1 fimse se (jog[1,3] = jog[2,2]) e (jog[2,2] = jog[3,1]) então fim <- 1 fimse ate (fim = 1) escreval ("Fim de Partida") fimalgoritmo Há possibilidades de melhora-lo ou estou no caminho certo?