Delphi - uložení do souboru

Zdravím.
A když mam pole.
cisla : Array [1..20] of integer;
nebo
hesla : Array [1..20] of string;

A chci je při spuštění projektu načist a při ukončení uložit?
Jak nejjednodušejí na to?

Asi nejak takto:

procedure SaveArray(var A: MyArray);
var
  S: TFileStream;
begin
  S := TFileStream.Create('cisla.dat', fmCreate);
  try
    S.Write(A, SizeOf(A));
  finally
    S.Free;
  end;
end;

procedure LoadArray(var A: MyArray);
var
  S: TFileStream;
begin
  S := TFileStream.Create('cisla.dat', fmOpenRead);
  try
    S.Read(A, SizeOf(A));
  finally
    S.Free;
  end;
end;

Bojím, se, že tohle by pro Array of string nefungovalo a uložilo by to pouze pole ukazatelů na ty řetězce.
Pro ukládání řetězců tímto způsobem by se musel použít ShortString, např:

array [1..20] of String[20];