Кстати, а длинная арифметика поддерживается?

уже добавил

наверное сделаю.

Заменил на result := copy(str, 1, p-1). Переменную s вообще выкинул.

сделаю

Почему нет оператора факториала n!?

Было бы удобнее иметь возможность указания rad или deg так же непосредственно после значения угла.

Медленный код:

Цитата
for i := 1 to p-1 do
s := s + str[i];

Ну зачем добавлять "scc" в конце при выводе результата, что я сам не знаю, какую систему установил...

отсутствуют настройки округления. А я хочу, чтобы округлялось до 3 знака после запятой к ближайшему чётному!

for i := 1 to p-1 do
s := s + str[i];

if a in ['A'..'Z'] then result := 3 // именно 3, это не опечатка

И сразу общее замечание: у парсера слишком много ограничений. Для унарного минуса добавляется 0 спереди, удаляются пробелы перед парсингом — это не очень хороший стиль. Кроме того если несколько унарных минусов, то возникает ошибка, хотя это вполне корректная операция.