
code_17901.txt
------------ Дoбавленo в 15.49:
И под обоими компилляторами

------------ Дoбавленo в 15.51:
И еще можно было спокойно обойтись без лишнего условия при составлении таблицы отступов
#pas
for i := 1 to lp do bmt[ord(SubStr[i])] := lp - i;