membuat program perhitungan rata-rata, variansi dan standar deviasi dengan delphi / pascal

Assalamualaikum Wr. Wb....
Selamat sore,, selamat berlibur buat sahabat-sahabat blogger semuanya,,,
Sore Minggu yang hujan ini saya ingin berbagi kepada sahabat-sahabat semuanya, kebetulan lagi terjebak sama hujan lebat dikampus jadinya tidak bisa pulang karena tidak bawa mantel hoho :D

yaa sesuai dengan judul diatas langsung saja cek dibawah ini..

program Variansi_StandarDeviasi;
uses
  SysUtils;
var i,n:integer;
  j,k,l,m:real;
  x:array[1..100] of integer;

begin
write('jumlah data= '); readln(n);
j:=0;
for i:=1 to n do

begin
write('suku',i,'=');
readln(x[i]);
j:=j+x[i];
end;

k:=j/n;
l:=l+(sqr(x[i]-k)/(n-1));
m:=sqrt(l);
writeln;
writeln('jumlah data = ',n);
writeln('jumlah nilai= ',j:1:2);
writeln('rata nilai= ',k:1:2);
writeln('variansi= ',l:1:2);
writeln('standart deviasi= ',m:1:2);
readln;

end. 

Semoga bermanfaat..
Have Fun..