дана строка символов состоящая из букв и цифр определить сумму всех цифр в этой сроке и количество прописных заглавных букв на PASCAL

Остальное может даже перестать работать после выпуска очередной версии.

Поэтому в очень серьезных приложениях или собственные библиотеки пишут, или подключают системные из локализованных версий ОС.

ну это уже специфика

var s, s1: string; i, sum, k: integer;begin readln(s); for i := 1 to Length(s) do begin if s[i] in ['0'..'9'] then sum := sum + StrToInt(s[i]) else if (s[i] = UpCase(s[i])) and (LowCase(s[i]) <> UpCase(s[i])) then s1 := s1 + s[i]; end; writeln(sum); writeln(Length(s1), ' ', s1);end.

более менее универсальный вариант