uses System.SysUtils, System.StrUtils;
var
Str1, Str2: string;
begin
//single character
Str1 := StringOfChar('7', 3);
//Str1 is '777'
//any substring
Str2 := DupeString('ab', 3);
//Str2 is 'ababab'
WriteLn('str1 is ', Str1);
WriteLn('str2 is ', Str2);
end.