Program DemoProcedureVal;
Var
  Word : string;
  Chislo, Code : integer;
Begin
  writeln('Введите строку цифр ');
  readln(Word);
  Val(Word, Chislo, Code); {преобразование строки в число}
  if Code <> 0 then
     writeln('Ошибка! В позиции ',Code,' не верный символ!',);
End.