Ввести с клавиатуры последовательность символов - PascalABC.NET

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

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

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

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

begin
  var s:=ReadLnString;
  var value:Integer;
  if TryStrToInt(s,value) then WriteLn(value) else WriteLn('-'+s.Length);
end.

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

В этом коде выполняется следующая последовательность действий:

Вводится строка с клавиатуры с помощью функции ReadLnString.
Переменная s получает введенную строку.
Переменная value инициализируется типом Integer.
Функция TryStrToInt пытается преобразовать строку s в целое число и сохранить результат в переменной value. Если преобразование прошло успешно, то переходим к следующему шагу, иначе переходим к шагу 8.
Выводится на экран значение переменной value с помощью функции WriteLn.
Если значение переменной value получилось успешно, то выводится только значение, иначе выводится -s.Length.
Шаги 5 и 6 повторяются до тех пор, пока не будет достигнуто условие выхода из цикла.
Если преобразование строки в целое число не удалось, то выводится сообщение об ошибке.