Duda sobre variable en un Bucle Repeat

[gerupc]

Hola,

tengo una duda en un bucle repeat, os escribo el codigo:

Código Delphi [-]
 
Repeat
       write('Introduce Numero: ');
       readln(numero);
       contador := contador + 1;
       suma := suma + 1;
Until
       contador = 5;
Write('La suma de los numeros es: ',suma:2:2);
readln;
Write('La media es: ', suma/contador:2:2);
readln;

Bien, pues mi problema es que no entiendo que función cumple la variable 'suma', si, entiendo que sirve para que en cada iteración 'almacene' el numero, pero porqué de esta manera? Qué sentido tiene?

Un saludo y muchas gracias de antemano,

Geru.