Перевод чисел из 16-ой в 10-ую систему счисления

uses crt;
var
    s   :string;
    i,n,k :integer;
begin
    readln(s);
    for i := 1 to length(s) do
    begin
        k := ord(UpCase(s[i]));
        case k of
            48..57:
                n := n +  (k - ord('0')) * (1 shl (4 * (length(s) - i)));
        else
            if (k < ord('a')) and (k > ord('f')) then
            begin
                write('number is not valid');
                readkey;
                exit;
            end;
            n := n + (k - ord('A') + 10) * (1 shl (4 * (length(s) - i)));
        end;
 
    end;
    writeln(n);
    readkey;
end.

program hex2dec;
var s:string;
    i,c:Integer;
begin
    Write('Input Hexadecimal number: ');
    ReadLn(s);
    Val('$'+s,i,c);
    if c=0 then
        WriteLn('Decimal value: ',i)
    else
        WriteLn('Invalid input position: ',c);
end.