Visualg função

Faça uma função que receba por parâmetro, um valor inteiro e positivo N e retorne o valor de S, onde a 1ª parcela da soma tem N=1, a 2ª parcela tem N=2,..., até N ser igual ao valor digitado.
S = 1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/N

Fiz assim, porém o resultado não fecha, como arrumo o algoritmo?

Var

// Seção de Declarações das variáveis
n: inteiro
m: real

funcao somaparcela (s:real): real

var
i: inteiro

inicio
s <- 1
para i de 1 ate n faca
s <- s + 1/n
fimpara
retorne s
fimfuncao

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreva ("Digite um número inteiro positivo: ")
leia (n)
m <- somaparcela(n)
escreva (n)

Fimalgoritmo