Обработка неправильного ввода

Задача:

Функция, которая проверяет введено ли целое число.

Код:


program V;
uses crt;
var n: integer;
    P, Code : integer;
    Str: string;
Begin
repeat
   Write('Введите n: ');
   Readln(str);          {Вводим строку}
   Val(Str, p, Code);    {Эта функция все сделает}
   if Code<>0 then Writeln('Неправильный ввод! Ошибка в позиции: ',Code);
until Code = 0;

n:=P;
Writeln('Введено: ',n);
Readln;
End.