Помогите, пожалуйста! Как внести число в массив??? Паскаль. Например n надо внести в массив a

var a:array [1..10] of real;n:real;i:integer;beginfor i:=1 to 10 dobeginreadln(n);a[i]:=n;end;write ('Массив: ');for i:=1 to 10 dobeginwrite (a[i],' ');end;end.