Ан
Андрей
write(copy(S, 1, 2));
где S - переменная типа string.
write(copy(stroka,1,2))
или
write(stroka[1]+stroka[2])
врите (с [1] + c[2]) слегка оптимизируем по скорости и размеру.
но сперва нужно поверить что строка имеет эти 2 символа:
иф ленгтх (с) >= 2 тхен...