Ввести с клавиатуры последовательность символов - Turbo Pascal

Формулировка задачи:

Ввести с клавиатуры последовательность символов длиной не более 4 ёх. Если все вводимые символы – цифры, то преобразовать данную последовательность в целое число. Если нет – то вывести на экран отрицательное число, равное по мо-дулю длине последовательности.

Решение задачи: «Ввести с клавиатуры последовательность символов»

Листинг программы

var
  s:string;
  a,b:integer;
begin
  write('s=');
  readln(s);
  val(s,a,b);
  if (b=0) and (a>=0) then writeln(a) else writeln(-length(s));
end.

Объяснение кода листинга программы

Вводится последовательность символов, которая сохраняется в переменной s.
Далее происходит чтение двух целых чисел, которые сохраняются в переменных a и b.
Если b равно нулю и a больше или равно нулю, то выводится значение a.
Если условие не выполняется, то выводится длина строки s, умноженная на -1.