Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение - Free Pascal

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

С клавиатуры вводится строка, состоящая из цифр. Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение: «Не является числом!» как это сделать?

Решение задачи: «Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение»

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

var s: String; i, n: Integer;
begin
  ReadLn(s); i:=Length(s);
  while (i>0) and (s[i] in ['0'..'9']) do begin
    Inc(n,Ord(s[i])-Ord('0')); Dec(i);
  end;
  if i>0 then WriteLn('Не является числом!')
  else WriteLn('Сумма цифр: ', n);
end.

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

Вводится строка с помощью функции ReadLn(s).
Переменная i инициализируется значением Length(s), а переменная n — 0.
Цикл while выполняет следующие действия: — Проверяет, что текущий символ является цифрой. — Увеличивает значение переменной n на значение текущего символа, вычитая значение символа '0'. — Уменьшает значение переменной i на 1.
Если цикл закончился и i > 0, то выводится сообщение 'Не является числом!'.
Если цикл закончился и i = 0, то выводится сообщение 'Сумма цифр: ' и значение переменной n.