LP - Programa que soma 15 valores inteiros digitados pelo usuário utilizando Repeat - Pascal

Program Pzim ;
var soma,limite,numero:integer;
 
Begin
  limite:=0;
  soma:=0;
  numero:=0;
  Repeat
    begin
      write('Digite um numero: ');    
      read(numero);
      soma:=soma+numero;
      limite:=limite+1;
    end;
  Until(limite=15);
  writeln('A soma dos numeros e ',soma);
End.