На главную страницу

procedure AddIntegersToLst(Lst: TList; n: Integer; Value: Integer);

procedure AddIntegersToLst(Lst: TList; n: Integer; Value: Integer);
var
 i: Integer;
 p: ^Integer;
begin
 for i:=0 to n-1 do
 begin
  New(p);
  p^:=Value;
  Lst.Add(p);
 end;
end;

На главную страницу