Вывести на экран среднее значение суммы 10 чиселсоздать программу нахождения...

Var i,j,k: integer; mas: array [1..10] of integer;
begin
writeln('Заполните массив чисел:');
for i:=0 to 10 do
begin
writeln('Введите ', mas[i]);
readln(mas[i]);
end;
for i:=0 to 10 do
begin
k:=k+mas[i];
end;
k:=k/10;
write(k);
end.

// Проверить негде, паскаля нет)

Вывести ** экран среднее значение суммы 10 чиселсоздать программу нахождения...