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

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

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

var
  a, code : integer;
  s: string;
begin
  write('Введите число: ');
  readln(s);
  val(s, a, code);
  if not (code = 0) then
    write ('Ошибка')
  else
    write (a);
  readln();
end.

Вывод в консоли:

Введите число: 344
344

Введите число: dfh345sdg
Ошибка