Составить процедуру вычисления значения целого числа по заданной строке символов являющейся записью этого числа в шестнадцатиричной системе счисления. Через процедуру или функцию

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!function HexToDec(n:string):string;begin  var s:='0123456789ABCDEF';  var (p,pa):=(0,1);  foreach var c in n.Reverse do begin    p+=pa*(Pos(c,s)-1);    pa*=16    end;  Result:=p.ToStringend;begin  var s:=ReadlnString('Введите 16-ричное число:');  HexToDec(s).Printlnend.