Delphi7 动态数组

初学Delphi，感觉.......这感觉就是写代码太费劲了，已经习惯了c#那种信手拈来，不能说pascal不适应只能说还是费劲，可能是D7太老了，也可能是我还没有上道儿，就这么着吧，下面简单的写俩函数作为参考，修改修改可以当c#中的List 用

arr: array of string;

procedure add(s: string);
begin
  SetLength(arr, Length(arr) + 1);
  arr[Length(arr) - 1] := s;
end;

procedure remove(s: string); //只能删除第一个符合的
var
  i, j: Integer;
begin
  for i := 0 to Length(arr) - 1 do begin
    if arr[i] = s then begin
      for j := i to Length(arr) - 2 do arr[j] := arr[j + 1];
      SetLength(arr, Length(arr) - 1);
      Break;
    end;
  end;
end;

procedure removeAt(index: Integer);
var
  i: Integer;
begin
  if Length(arr) > index then begin
    for i := index to Length(arr) - 2 do arr[i] := arr[i + 1];
    SetLength(arr, Length(arr) - 1);
  end;
end;