[Deman1986]

ребята помогите пожалуйста реализовать функцию.

Код:

function TRam.AddSegment (const Segment: TSegment): integer;
var
  i,j: integer;
begin
  setlength(FRam,length(FRam)+1); // расширение массива
   for i:= 0 to GetCount-1 do
    begin
   j:= Length(FRam);
   if i >= j then j:= i+1;
   setLength(FRam, j+1);
   move( FRam[i], FRam[ i+1 ],
         (j-i) * sizeof( FRam[i]));
            Result:= j;
                 end;

end;

У меня 2 входных параметра препод говорит нехватает реализации второго рааметра. Просто замучался уже. Если надо могу денег закинуть на телефон. Спасибо.