Задача в Паскале. Дано 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.