Как можно написать это же выражение но без ord? a[i]:=ord(s[i])-48;

Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.

Вас заинтересует