Вычислить среднее значение

…
  Xsr := 0;
  for i := 1 to k do Xsr := Xsr + X[i];
  Xsr := Xsr / k;
  WriteLn(Xsr:0:5);
  
  Dx := 0;
  for i := 1 to k do Dx := Dx + X[i];
  Dx := (Dx - Xsr*k) / (k-1);
  WriteLn(Dx:0:5);
…

type ss = array [1..100] of integer; //тип для массивов 
 
Var x: ss; 
i, n: byte; 
 
function sumi(var arr: ss; k: integer): real; 
var i: integer; 
mo: real; 
begin 
mo := 0; 
For i := 1 to k do mo := mo + arr[i] ; 
sumi := mo/k; 
end; 
 
function d(var arr: ss; k: integer): real; //дисперсия 
var i: integer; 
mo, dd: real; 
begin 
mo := sumi(arr, k); 
For i := 1 to k do dd := sqr(arr[i] -mo); 
d := dd/(k-1); 
end; 
Begin //основная программа 
write('Введите n: '); readln(n); 
for i := 1 to n do 
Begin 
write('X[', i:2, '] = '); 
readln(x[i]); 
End; 
writeln('Среднее значение = ', sumi(x, n):0:2); //вызов m 
writeln('Дисперсия = ', d(x, n):0:2); //вызов d 
readln 
End.