Pascal abc как найти среднее арифметическое

var N, x, S, i:integer;

SR:real;

begin

writeln('Количество числе в последовательности N=')

readln(N);

S:=0;

for i:=1 to N do

begin

read(x);

S:=S+x;

end;

Sr:=S/N

Writeln('Средне арифметическое=', Sr)

end.