Система счисления

Program Schislenie;
Var p,k,d,q:byte; kon,kop:string;
N,b,a,del,s,sum,c:longint; 
begin
writeln('*СИСТЕМА СЧИСЛЕНИЯ*');
writeln('Введите исходное число');
write('-----> ');
readln(N);
writeln('Введите основание исходного числа от 2 до 10');
write('-----> ');
readln(p);
writeln('Введите основание числа перевода от 2 до 10');
write('-----> ');
readln(q);
b:=N; k:=0; sum:=0;
while b<>0 do begin
a:=b mod 10;
s:=trunc(a*power(p,k));
k:=k+1;
sum:=sum+s;
b:=b div 10; end;
c:=sum; kon:='';
while del<>0 do begin
del:=c div q;
d:=c mod q; 
str(d,kop);
kon:=kon+kop; end;
writeln('Конечное число равно ',kon);
end.

Program Schislenie;
Var p,k,q,b1,i,k1:byte;
N,b,a:longint; s,sum,a1,c:int64;
mas:array[0..1000] of integer;
begin
writeln('*СИСТЕМА СЧИСЛЕНИЯ*');
writeln('Введите исходное число');
write('-----> ');
readln(N);
writeln('Введите основание исходного числа от 2 до 10');
write('-----> ');
readln(p);
writeln('Введите основание числа перевода от 2 до 9');
write('-----> ');
readln(q);
b:=N; k:=0; sum:=0;
while b<>0 do begin
a:=b mod 10;
s:=trunc(a*power(p,k));
k:=k+1;
sum:=sum+s;
b:=b div 10; end;
writeln('Сумма перевода числа в основание 10 равна ',sum);
a1:=sum; k1:=0;
repeat
b1:=a1 mod q;
k1:=k1+1; 
mas[k1]:=b1;
c:=a1 div q; if c>=q then a1:=c; 
until c<q; write('Результат перевода числа ',N,' с основанием ',p,' в число перевода с основанием ',q,' равен ',c);
for i:=k1 downto 1 do write(mas[i]);
end.