Паскаль, ф-ия

[DmuS]

Для программы необходим контроль входа данных. Написал функцию для проверки строки символов. Т.е. если строка содержит все символы с кодом цифр, то после выполнения значение функции true. Если же в строке хотя бы один символ не являющийся цифрой, функция принимает значение false.

 function prov(s:string):boolean;
  var
     i,d:integer;
 begin
   d:=length(s);  prov:=true;
   if ord(s[1])=45 then
       for i:=2 to d do
          if (ord(s[i])<48) and (ord(s[i])>57) then
            begin
              prov:=false;
              exit;
            end
   else
     for i:=1 to d do
        if (ord(s[i])<48) and (ord(s[i])>57) then
          begin
            prov:=false;
            exit;
          end;

Ф-ия работает, но выдает неверный результат. Подскажите пожалуйста в чем ошибка?

[Om1cr0n]

Поменяйте местами знаки тоесть

if (ord(s[i])>48) and (ord(s[i])<57) then