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

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

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

program u18z1;
var
  intChislo, Code : Integer;
  s: string;
begin
  writeln('Vvedite chislo');
  readln(s);
  Val(s, intChislo, Code);
  if (Code<>0) then
    writeln('Error')
  else
    writeln(intChislo);
  readln();
end.