LP - Usuário alimentando um vetor dinamicamente - Pascal

Program Vetor;
Var 
    vet:array[1..6] of integer; 
    i:integer;

Begin 
    i:=1;
    repeat
      write ('Digite um número inteito.....: ');
      read (vet[i]);
      i:=i+1;
    until (i=7);
end.