LP - Soma de 10 números com a estrutura de Loop For To Do - Pascal

Program Pzim ;
var soma,num,cont,x:integer;

Begin
    write('Digite quantos numeros deseja somar..: ');
    read(x);
    soma:=0;
    for cont:=1 to x do
      Begin
        write ('Digite um numero...:');
        read(num);
        soma:=soma+num;
      End;
    Writeln('A soma dos ',cont,' numeros é ',soma);
End.