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

Задача 1 Урок 17:

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

var i, o1, o2: integer;
  r: real;
  s: string;
begin
  writeln('Введите строку:');
  readln(s);
  val(s, i, o1);
  val(s, r, o2);
  if (o1 = 0) or (o2 = 0) then writeln('Строка является числом')
  else writeln('Строка не является числом');
  readln();
end.