Не работает программа перевода из 16 в 10

var n, z,a: integer;
x : LongInt;
s : string;
begin
writeln('Введите число в шестнадцатиричной СС:');
readln(s);
n:=0;
x:=0;
while n<length(s) do
begin
n:=n+1;
case s[n] of
'0'..'9': val(s[n],z,a);
'A': z:=10;
'B': z:=11;
'C': z:=12;
'D': z:=13;
'E': z:=14;
'F': z:=15;
else begin
writeln('Не шестнадцатиричная СС');
readln;
exit;
end;
end;
x:=x+z*round(exp((length(s)-n)*16));
end;
writeln('Число в десятиричной СС', x);
readln();
end.

Program Hello;
Var n, z, a: integer;
    x: LongInt;
    s: string;
Begin
WriteLn('Введите число в шестнадцатиричной СС:');
Readln(s);
 
n:=0;
x:=0;
While n < length(s) do
Begin
  n:=n+1;
  case s[n] of
    '0'..'9': val(s[n],z,a);
    'A': z:=10;
    'B': z:=11;
    'C': z:=12;
    'D': z:=13;
    'E': z:=14;
    'F': z:=15;
  End;
  x:=16*x + z;
  WriteLn('n = ', n, ' x = ', x);
End;
 
WriteLn('Число в десятичной СС ', x);
ReadLn();
End.

var
  s: String;
  i: Integer;
  r: Longint;
begin
  Write('Число (16): '); ReadLn(s); {r:=0;}
  for i:=1 to Length(s) do
    case UpCase(s[i]) of
      '0'..'9': r:=r*16+Ord(s[i])-Ord('0');
      'A'..'F': r:=r*16+Ord(UpCase(s[i]))-Ord('A')+10;
      else begin
        WriteLn('*** Ошибка: Не 16-ое число'); Exit;
      end;
    end;
  WriteLn('Число (10): ',r);
end.