Имеется файл, в котором записано 12 вещественных чисел. Переписать все числа файла в массив в том же порядке — Pascal(Паскаль)

program text_file;
uses crt;
type
    vector = array[1..100] of real;
var
    ft:text;
    str:string;
    i,k,code:integer;
   a:vector;
begin
assign(ft,'D:\text.txt');
reset(ft);
i:=0;
while not eof(ft) do
begin
    i:=i+1;
    readln(ft,str);
    val(str,a[i],code);
   if code <> 0 then
   writeln('Error =',Code)
   else
          writeln(a[i]:8:2);
end;
close(ft);
readln;
end.