Впаскале. дано n чисел, введённых с клавиатуры. найти их среднее арифметическое

program z_1;

var a, s: real;

i, n, k: integer;  

begin

writeln('Введите кол-во чисел последовательности: ');

readln(n);

k := 0;

s:=0;

for i := 1 to n do

begin

writeln('Введите ', i, '-е число: ');

readln(a);

s := s + a;

k := k + 1;  

end;

writeln('Среднее арифметическое чисел: ', s / k);  

end.

Var i:array[1..1000] of integer;
sum,n,k : integer;
Begin
Readln(n);
for k:=1 to n do begin
Read(i[k]);
sum+=i[k];
end;
writeln(sum/n);
end.