Задача 1 Урок 18

Урок 18

Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.

var newInt, errorCode: integer;
    fromString: string;

begin
  writeln('Введите строку');
  readln(fromString);
  val(fromString, newInt, errorCode);
  if (errorCode <> 0) then
    writeln('Ошибка при преобразовании в позиции: ', errorCode)
  else
    writeln('Успешно получено число: ', newInt);
  readln();
end.

КОНСОЛЬ

Введите строку
укп3ку32уав
Ошибка при преобразовании в позиции: 1