С клавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. Паскаль

var a:array[1..10] of integer;i,k:integer;s:real;begink:=0;writeln('Введите числа');for i:=1 to 10 dobeginreadln(a[i]);k:=k+a[i];end;s:=k/10;writeln('Среднее арифметическое равняется ',s);end.