Janilabo | StringOfString() [SCAR Divi]

{==============================================================================]
  Explanation: Returns str * count times. Example: ('ha', 3) => 'hahaha'
[==============================================================================}
function StringOfString(str: string; count: Integer): string;
var
  i: Integer;
begin
  Result := '';
  if (count > 0) then
    for i := 1 to count do
      Result := (Result + string(str));
end;

begin
  ClearDebug;
  WriteLn(StringOfString('ha', 4));
end.