Корректно ли так заполнять массив? Опции

[VEDA]

constructor ТContFigur.Create();
var i: integer;
begin
  inherited Create();
  SetLength(MassF, 0);
  for i := 0 to Length(MassF)-1 do
	begin
	  SetLength(MassF,Length(MassF)+1);
	  MassF [Length(MassF)-1]:= MassF[i];
   end;
end;

Уже не соображаю ничего , вроде правильно, хочу перестраховаться

[TarasBer]

Если изначально длина равна 0, то цикл
for i:=0 to Length(MassF)-1 do begin
не выполнится ни разу. Ничего не произойдёт.
А если не ноль, то длина удвоится. Мы эн раз увеличиваем длину на единицу, значит длина увеличивается на эн.