Ввести строку и определить, возможно ли её преобразовать в число? - Pascal ABC

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

тут нужно использовать процедуру val

program m1;
var s:string;
v,k:integer;
begin
readln(S);
val(S,v,k);

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

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

program m1;
var
  s:string;
  v,k:integer;
begin
  readln(S);
  val(S,v,k);
  If k<>0 then
    Writeln ('Ошибка в позиции ',k,' : ',s[k])
  else
    Writeln ('Значение: ',v);
  readln;
end.

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

Программа начинается с объявления переменных s, v и k типа string, integer соответственно.
Затем с помощью функции readln(S) происходит чтение строки из стандартного ввода и сохранение её в переменную S.
Далее вызывается функция val(S, v, k), которая преобразует строку S в целое число и сохраняет результат в переменные v и k.
Затем выполняется проверка условия k <> 0. Если это условие истинно, то выводится сообщение об ошибке в позиции k и значение элемента s[k]. Если же условие ложно, то выводится сообщение о том, что значение было успешно преобразовано в число и сохранено в переменной v.
Наконец, вызывается функция readln для чтения символа новой строки из стандартного ввода и завершения работы программы.