Найдите среднее арифметическое массива А (Паскаль)

var x:array[1..100]:real;       k,s,p:integer; begin   writeln(`количестов элементов в массиве`);   readln(n);   writeln(`введите массив`);   for k:=1 to n do      readln(x);   s:=0;   for k:=1 to n do      s:=s+x[k];   s:=s/n;  writeln(s);