program project1;

{$mode delphiunicode}

Uses

 SysUtils;

type

 TRec<T> = Record

  FItems : Array Of T;


  Procedure Add(Const AValue : T);

  Function ToString : String;

 End;

{ TRec }

Procedure TRec<T>.Add(Const AValue : T);
Begin

 SetLength(FItems, Length(FItems) + 1);
 FItems[High(FItems)] := AValue;

End;

Function TRec<T>.ToString : String;
Var

 i : Integer;

Begin

 Result := '';

 For I := Low(FItems) To Pred(High(FItems)) Do
  Result := Result + FItems[i].ToString + sLineBreak;

 Result := Result + FItems[High(FItems)].ToString;

End;

var

 r : TRec<Integer>;

Begin

 r.Add(1);
 r.Add(2);
 r.Add(3);
 r.Add(4);
 r.Add(5);

 WriteLn(r.ToString);

End.