Pascal/Turbo Pascal - Sumatoria con For y While Do

Hola, estoy intentando hacer la sumatoria de los números del 1 al 100 con un While Do pero me da mal. El resultado debería ser 5050 pero me da 5150 (si lo hago creciente) o 4950 (si lo hago decreciente).

Lo hice también con un For, y logre el resultado correcto.

Este es el código:

program SumatoriaWhileDo;

var num, sum : word;

begin
num := 1;
sum := 0;

writeln('Los primeros 100 numeros naturales son: ');

while num <= 100 do
begin
writeln(num);
num := num + 1;
sum := sum + num;
end;

writeln('Sumatoria: ', sum);
readln;

end.

Gracias!

{Observa tu código con cuidado y veras el error de posición}

while num <= 100 do
begin
writeln(num);
num := num + 1; {Al valor sum le añades 1 en cada while por lo tanto suma 100 mas}
sum := sum + num; {tienes que pasarlo encima de num := num + 1}
end;

Increible! Tenías razón.

Muchas gracias!