Soma da sequencia (n * n) + 1

Program Pzim ;
Var
x,num,soma,soma2:integer;
Begin
    Writeln('Digite um numero maior que ZERO :');              //solicita que seja digitado um numero
    Read(Num); // lê o número
    If num<=0 then //se o número for invalido recusa
    Write ('Número digitado invalido, digite um mumero maior que zero') // exibe a mensagem
    else                           
   
    For x:=1 to num do                         //faz de 1 até o numero
        Begin                                //
            soma:=(x*x)+1;
            soma2:=soma2+soma;               //
        End;

        Write ('Dada a formula (n*n)+1,a soma dos ',num,' numeros é :',soma2);     //exibe a mensagem uma vez
   
End.