Задана последовательность {Хi} из N вещественных чисел. Вычислить последовательность {Si} по формуле: Si = корень (Xi-M)2/(N-1), (программа Паскаль)

uses crt;
const max=100;
var x,s:array[1..max] of real;
    n,i:byte;
    m:real;
begin
clrscr;
randomize;
repeat
write('Размер последовательности n=');
readln(n);
until n in [1..max];
writeln('Последовательность:');
m:=0;
for i:=1 to n do
 begin
  x[i]:=10*random-4;
  write(x[i]:6:2);
  m:=m+x[i];
 end;
m:=m/n;
writeln;
writeln('Среднее=',m:0:2);
writeln;
writeln('Результат вычислений:');
for i:=1 to n do
 begin
  s[i]:=sqrt(sqr(x[i]-m)/(n-1));
  write(s[i]:6:2);
 end;
readln
end.