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

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.

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

Решения в приложении!!