помогите решить в паскаль. Заданы основание

Многовато кода, но есть проверка основания (p < 17) и подсказка, что для данной системы счисления выбрано неверное основание "p"

var i, p, stepen, g, code_error: integer;
sum: real;
s, ss: string;
ch: char;
begin
ss:='0123456789ABCDEF';
p:=1;
repeat
write ('основание СС p=');
readln (p);
write ('строка s=');
readln (s);
until p < length (ss)+1;
stepen:=1;
sum:=0;
while length(s) > 0 do
begin
ch:=s[length(s)];
s:=copy (s, 1, length(s)-1);
val (ch, g, code_error);
for i:=1 to 16 do
if ch=ss[i] then g:=i-1;
if g >= p then
begin
write ('Основание системы выбрано неверно');
halt;
end;
sum:=sum+g*power(p, stepen-1);
//writeln (ch,' ':5,stepen-1,' ':4,g*power(p, stepen-1));
inc(stepen);
end;
writeln ('число в 10-й СС= ', sum)
end.