Pascal/Turbo Pascal - Ayuden a esta pobre alma

program Estadisticas;

uses crt;

const max = 100;

var

    n,i:integer;

    lista:array[1..max] of real;

    de,suma,prom,varianza:real;

begin

    suma:=0; prom:=0;

  write('Cuantos datos va a procesar: ');

  readln(n);

  for i:=1 to n do begin

      write('Ingrese un numero real: ');

      readln(lista[i]);

      suma:=suma + lista[i];

  end;

  prom:=suma / n;

  writeln('El promedio de la lista es: ',prom:4:2);

  {Calculo de la varianza}

  for i:=1 to n do

      varianza := varianza + sqr(lista[i] - prom) / n;

  writeln('La varianza de los datos es: ',varianza:4:2);

  {Calculo de la desviacion estandar}

  de:=sqrt(varianza);

  writeln('La desviacion estandar de los datos es: ',de:4:2);

end.