RosettaCodeData/Task/Repeat-a-string/Delphi/repeat-a-string-1.delphi

function RepeatString(const s: string; count: cardinal): string;
var
  i: Integer;
begin
  for i := 1 to count do
    Result := Result + s;
end;

Writeln(RepeatString('ha',5));