Pascal/Turbo Pascal - guardar vector

Hola como puedo guardar un vector en un archivo de texto cuando este se llene??

var
A:Array[1..10] of integer;
T: Text;
I: Integer;
S: string;
begin
...
Assign(T, 'Texto.txt');
Rewrite(T);
for I:=1 to 10 do
begin
Str(A[i], S);
Writeln(T, S);
end; { for }
Close(T);
end.