var
  Str: string;
begin
  Str := '1-3-2';

  //unlike most languages, direct index
  //assignment works; indexes are 1-based
  Str[3] := '2';
  Str[5] := '3';
  //Str is '1-2-3'

  WriteLn('str is ''', Str, '''');
end.