totoloto sem números repetidos

Algoritmo "totoloto_3488"
Var
   i,sorte,k,repetido:inteiro
   pote:vetor[1..50] de inteiro
   chave: vetor[1..6] de inteiro
Inicio
   para i de 1 ate 49 faca
      pote[i]<-i
   fimpara
   i<-1
   enquanto i <7 faca
      sorte<- randi(49)+1
      repetido <- 0
      k<- 1
      enquanto k <= i faca
         se chave[k] = sorte entao
            repetido<- 1
         fimse
         k<- k+1
      fimenquanto
      se repetido=0 entao
         chave[i]<-sorte
         i<- i+1
      fimse
   fimenquanto
   para i de 1 ate 6 faca
      escreva(chave[i])
   fimpara
Fimalgoritmo