Как внести число в паскаль. например n надо внести в массив a

Var a:array [1..10] of real;
n:real;
i:integer;
begin
for i:=1 to 10 do
begin
readln(n);
a[i]:=n;
end;
write ('Массив: ');
for i:=1 to 10 do
begin
write (a[i],' ');
end;
end.