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

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);