SRL Archive - OSR Help

how can i write an index of an array?

WriteLn(Array[RandomRange(0,ArrayLength)]);

var
  index: Integer;
  TSA: TStringArray;
  TIA: TIntegerArray;
begin
  index := 2;
  TSA := ['hello', 'world', 'foo'];
  Writeln('Index of TSA[' + IntToStr(index) + '], string value: ' + TSA[index]);
  // or
  TIA := [0, 1, 2];
  Writeln('Index of TIA[' + IntToStr(index) + '], Integer value: ' + IntToStr(TIA[index]));
end.

i love you lotssss