First Function:
SCAR Code:
Function RandomString(Length:Integer):string;
var
  I:integer;
begin
  SetLength(Result, Length)
  For I:=1 to length do
    Result[I]:=Chr(RandomRange(97, 122))
end;
Useage:
SCAR Code:
program New;

Function RandomString(Length:Integer):string;
var
  I:integer;
begin
  SetLength(Result, Length)
  For I:=1 to length do
    Result[I]:=Chr(RandomRange(97, 122))
end;

begin
  Cleardebug;
  writeln(RandomString(8))
end.