Найти среднее арифметическое числовой последовательности из N произвольных вещественных чисел

Const
M=1000; {Можешь ввести любое другое натуральное число}
Type
atype=array[1..M] of integer;
Var
a: atype;
SrednArifm: real;
s,n,j: integer;
BEGIN
write('Введите количество элементов последовательности: ');
repeat
readln(n);
until n>=1;
write('Введитечерез пробел ',n,' элемента(ов) последовательности: ');
for j:= 1 to n do
 begin
  read(a[j]);
 end;
s:=0;
for j:= 1 to n do
 begin
  s:=s+a[j];
 end;
SrednArifm:= S/N;
writeln;
writeln('Среднее арифметическое равно: ',SrednArifm:4);
readln;
readln;
END.

var
x,k,n,sum:integer;
SrednArifm:real;
begin
for k:=1 to n do begin
read(x);
sum:=sum+x;
end;
SrednArifm:= Sum/N; //// »*Ошибка: Неверная вещественная операция
write(SrednArifm);
end.

var
x,k,n,sum:integer;
SrednArifm:real;
begin
repeat
readln(n); {твой косяк}
until n>=1;
for k:=1 to n do begin
read(x);
sum:=sum+x;
end;
SrednArifm:= Sum/N;
write(SrednArifm);
readln;
readln;
end.

var
x,k,n,sum:integer;
SrednArifm:real;
begin
readln(n);
for k:=1 to n do begin
read(x);
sum:=sum+x;
end;
SrednArifm:= Sum/N;
write(SrednArifm:0:2);
end.