var
  Str, CharList: string;
  CharA, CharB, CharC, C: Char;
begin
  Str := 'ABC';

  //string indexes are 1-based
  CharA := Str[1];  //CharA is 'A'
  CharB := Str[2];  //CharB is 'B'
  CharC := Str[3];  //CharC is 'C'

  CharList := '';
  for C in Str do
    CharList := CharList + C + ';';
  //CharList is 'A;B;C;'

  WriteLn('charA is ', CharA);
  WriteLn('charB is ', CharB);
  WriteLn('charC is ', CharC);
  WriteLn('charList is ''', CharList, '''');
end.