Jak zapisać dynamiczną tablicę el. real do pliku *.

Nie wiem czy chodzi o cos takiego:

var
F: TextFile;
I: Integer;

begin
try
AssignFile(F, 'c:\tablica.txt');
Rewrite(F);
for I := 0 to High(Tablica) do
Writeln(F, Tablica[I]);
finally
CloseFile(F);
end;
end;

lub sformatowane:
Writeln(F, FormatFloat('0.000', Tablica[I]));