字符串 数组 如何存入文件

字符串 数组 怎么存入文件！
type
    ts=array[1..100]   of   array[1..10]   of   string;

var  
    a:=ts;

想把a存入文件   怎么弄？



[解决办法]
type
TS = array[1..100] of array[1..10] of string;

procedure TForm1.Button1Click(Sender: TObject);
var
A : TS;
I, J : integer;
F : TextFile;
begin
AssignFile(F, 'C:\Test.txt ');
ReWrite(F);
for I := 1 to 100 do
for J := 1 to 10 do
WriteLn(F, A[I,J]);
CloseFile(F);
end;
[解决办法]
type
TS = array[1..100] of array[1..10] of string;

var
sl: TStringList;
A: TS;

存入
sl.Clear;
for i:=1 to 100 do
for j:=1 to 10 do
sl.Add(A[I,J]);
sl.SaveToFile( '*.txt ');

读取
sl.LoadFromFile( '*.txt ');
for i:=1 to 100 do
for j:=1 to 10 do
A[I,J] := sl[i*j];