Also, ich würde es mit einer StringListe lösen. Die Arbeit mit AssignFile gehört eínfach zur Vergangenheit und gilt als nicht mehr empfehlenswert, um es milde auszudrücken.
Delphi-Quellcode:
var
DeinArray: Array[1..200,1..3] of String;
I, J: Integer;
begin
...
// speichern
with TStringList.Create do
try
for I := Low(DeinArray) to High(DeinArray) do
for J := Low(DeinArray[I]) to High(DeinArray[I]) do
Add(DeinArray[I, J]);
SaveToFile('a:\TestFile.txt');
finally
Free;
end;
...
...
...