Delphi - programa sumador

hola, me encargaron una tarea y la verdad no se mucho de programacion y ando desesperado si alguien me puediera ayudar.
esto es lo que tengo que hacer
como hacer un programa que calcule la media aritmetica entre el 10 y el 50 con do while y con solamente while
nota:la media aritmetica es la suma de los numeros entre el 10 y el 50 ejem 10+11+12+13.... +50

Intenta con esto:

function SumarConsecutivo(Desde, Hasta: Integer): Integer;
var Res, I: Integer;
begin
Res := 0;
for I := Desde to Hasta do
Res := Res + I;
SumarConsecutivo := Res;
end;

Espero que te sirva.

Saludos.