В линейном массиве вещественных чисел на 8 место вставить элемент равный сумме первых 10 элементов массива — Pascal(Паскаль)

type mas=array[1..100] of real;
var a,b,c:real;
    m:mas;
    n,i:integer;
//процедура вывода массива
procedure vuvod(m:mas;n:integer);
var i:integer;
begin
  for i:=1 to n do
  write('[',m[i],']');
end;  
begin
  writeln('vvedite razmernost massiva ne menshe 10');
  read(n);
  for i:=1 to n do
    begin
      write('m[',i,']=');
      readln(m[i]);
    end;
  writeln('ishodnui massiv:');  
  vuvod(m,n);
  a:=0;
  for i:=1 to 10 do//считаем сумму первых 10 елементов
  a:=a+m[i];
  m[8]:=a;//ставим ету сумму на место 8 елемента
  writeln;
  writeln('reshenie:');
  vuvod(m,n);
  readln;
  end.