Длинная арифметика, перевод чисел другие системы счисления

uses crt;
 
type
mas=array[1..200]of byte;
mac=array[1..200]of char;
 
label 1,2;
VAR
K,I,J,N,C:BYTE;
A:LONGINT;
B1,b:mas;
h:mac;
BEGIN
clrscr;
writeln('vvedite cictemu');readln(c);
writeln('chislo :=>  ');
read(a);
repeat
inc(i);
b[i]:=a mod c;
a:=a div c;
until (a=1)  or (a=0);
{----------------------------------}
for J:=1 to I do
begin{1}
if (c>10) AND (c<=16) then     begin INC(k);
if b[J]=10 then h[J]:='a';
if b[J]=11 then h[J]:='b';
if b[J]=12 then h[J]:='c';
if b[J]=13 then h[J]:='d';
if b[J]=14 then h[J]:='e';
if b[J]=15 then h[J]:='f';
end
end;
{---------------------------------}
writeln('----');
if a=0 then
           begin
           for j:=i downto 1 do
           IF b[j]>9 then
            begin
            goto 1;
            write(b[j]);
            1: WRITE(H[J])
            end
           else begin write(b[j]); write(h[j]);end;
           end
else begin
     write(a);
     for j:=i downto 1 do
     if b[j]>9 then
     begin
     goto 2;
     write(b[j]);
     2:WRITE(H[J])
     end
     else begin write(b[j]); write(h[j]);end;
     end;
writeln;
readln;readln;
END.

Unit math;
Interface
Function stepint (a: longint; n: shortint): longint;  {Возведение числа в степень}
Procedure des (a: word; b:byte; var s: string);  {Перевод из 10-ой с/с в [2..9]-ую}
Procedure segdes(p: integer; k: byte; var g: integer);  {Перевод из [2..9]-ой в 10-ую}
Procedure hex (a: word; b:byte; var s: string);  {Перевод из 10-ой в [11..16]-ую}
Implementation
Uses crt;
Function stepint(a: longint; n: shortint): longint;
begin
If n=0 then stepint:=1
else if n=1 then stepint:=a
else if (n>1) then
begin
if a>0 then stepint:=a * stepint(a,n-1)
else
begin
If n mod 2 = 0 then stepint:=a * stepint(a,n-1)
else stepint:=a * stepint(-a,n-1);
end;
end;
end;
Procedure des (a: word; b:byte; var s: string);
Var k,i: byte; l,m,j: string; n: char;
begin
s:=''; j:='';
If a>=b then
Repeat
k:=a mod b;
Str(k,l);
s:=s+l;
a:=a div b;
Until a<b;
Str(a,m);
s:=s+m;
For i:=length(s) downto 1 do
j:=j+s[i];
s:=j;
end;
Var q: integer; t: byte; o: integer;
Procedure segdes(p: integer; k: byte; var g: integer);
Var i,b,v: byte; n,c: integer; s: string;
begin
v:=0; n:=0;
Str(p,s);
For i:=length(s) downto 1 do
begin
Val(s[i],b,c);
n:=n+b*stepint(k,v);
v:=v+1;
end;
g:=n;
end;
Procedure hex (a: word; b:byte; var s: string);
Var q,p: string; k: integer; i: byte;
begin
s:='';
If a>=b then
begin
q:='';
Repeat
k:=a mod b;
Str(k,p);
Case k of
10: p:='A';
11: p:='B';
12: p:='C';
13: p:='D';
14: p:='E';
15: p:='F';
end;
q:=q+p;
a:=a div b;
Until a<b;
Str(a,p);
q:=q+p;
For i:=length(q) downto 1 do
s:=s+q[i];
end;
end;
end.