Primeiros dez primos acima de 100 - vetores

//Faca um programa que gere os dez primeiros números primos
//acima de 100 e armazeneos em um vetor. Em seguida mostre
//esse vetor.
Algoritmo "primeiros dez primos acima de 100"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 22/10/2016
Var
   // Seção de Declarações das variáveis
   primos:vetor[1..10] de inteiro
   i,qtde,num,divi:inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   num := 101
   qtde := 1
   repita
      divi := 0
      para i := 1 ate num faca
         se num MOD i = 0 entao
            divi := divi + 1
         fimse
      fimpara
      se divi =  2 entao
         primos[qtde] := num
         qtde := qtde + 1
      fimse
      num := num + 1
   ate qtde = 11
   limpatela
   escreval("-------------------------------")
   escreval("Vetor dos números primos acima de 100")
   para i:=1 ate 10 faca
      escreva(primos[i]:5)
   fimpara
fimalgoritmo