Найдите ошибку в программном коде в массиве и как следует исправить ее

[DrewzZ]

Задача была на нахождение среднего арифметического элементов массива

program kek_killer;
var k, s:real; a:array [1..10] of integer; i, n:integer;
begin
writeln('vvedite kolichestvo elementov v massive');
readln(n);
writeln('vvedite znachenie:');
readln(a[i]);
s:=0;
k:=0;
for i:=1 to n do begin
s:=a[i]+s;
k:=k+1;
end;
writeln('Srednee arifmetichescoe= ',s/k);
end.

[Croessmah]

program kek_killer;
var k, s:real; a:array [1..10] of integer; i, n:integer;
begin


writeln('vvedite kolichestvo elementov v massive');
read(n);
if n <> 0 then
begin
	writeln('vvedite znachenie:');
	for i:=1 to n do
	   read(a[i]);
	s:=0;
	for i:=1 to n do
		s:=a[i]+s;
	writeln('Srednee arifmetichescoe= ',s/n);
end ;


end.

[Вадим Мошев]

Ошибка вот:

writeln('vvedite znachenie:');
readln(a[i]);

Мало того, что вы НЕ ВВОДИТЕ исходный массив, так вы ещё пытаетесь ввести значение для элемента массива с неопределённым номером (i - неопределено). Далее вы работаете с неопределённым массивом.