Жеванный крот, одна халтура! Мало того что английский перевод кривой как рог барана, так ещё и проверяющая система хромает!

Отправляем на проверку:
Var
s, s1: ansistring;
a, b: byte;

Begin
readln(s, s1); val(s[length(s)], b);

End.

Получаем вполне обоснованный WA1.
Теперь дополним:
Var
s, s1: ansistring;
a, b: byte;

Begin
readln(s, s1); val(s[length(s)], b);
val(s1[length(s1)], a);

End.

Всё, вселенная дрогнула: "Access violation"... *facepalm*
И всё бы ничего, но подобное происходит уже где-то раз пятый (в разных задачах).
И да, прочитать string целиком, а затем разрезать - выдаёт ту же ошибку AV:
Var
s, s1: ansistring;
i, a, b: byte;

Begin
readln(s); for i:=1 to length(s) do if s[i]:=' ' then begin val(s[i-1], b); val(s[length(s)], a); break; end;

End.

Сделайте уже нормальный ввод!!!!1