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