Как я могу использовать массив в процедуре

Question

Это код, который я использую, если я работаю с одним массивом. Я хочу настроить этот код так, чтобы он мог работать с любым массивом с помощью процедуры:

Var
  tf: TextFile;
  sWord: String;
  i: Integer;
  arrDurban: array of string;
begin
  if Location='Durban' then
  begin
    i := 0;
    SetLength(arrDurban, 1);
    AssignFile(tf, '');
    Reset(tf);
    while not eof(tf) do
    begin
      Readln(tf, sWord);
      arrDurban[i] := sWord;
      Inc(i);
      SetLength(arrDurban, i + 1);
    end;
  end;