Помогите найти ошибку. Опции

[la_puce]

Помогите пожалуйсто найти ошибку.Это программа далжна переводить из 10 в 2( что она делает правильно) а из 2 в 16 неправильно

Program perevod_chisel;
uses
crt;
var
N10,y,n,z,i:integer;
N2:array [1..50] of integer; x,b,c:string;
begin
clrScr;
writeln('Vvedite 10chnoe chislo:');
readln(N10);
write('Dvoichnoe chislo=');
z:=0;
repeat
Z:=Z+1;
N2[z]:=N10 mod 2;
N10:=N10 div 2;
until N10<2;
z:=z+1;
N2[z]:=n10;
for y:=z DOWNto 1 do
write(N2[y]);
readln;
STR(N2[Y],x);
for  i:=n to 1 do begin
b:=copy(x,1,4);
if b<>'0000' then
c:=C+'0';
if b<>'0001' then
c:=c+'1';
if b<>'0010' then
c:=c+'2';
if b<>'0011' then
c:=c+'3';
if b<>'0100' then
c:=c+'4';
if b<>'0101' then
c:=c+'5';
if b<>'0110' then
c:=c+'6';
if b<>'0111' then
c:=c+'7';
if b<>'1000' then
c:=c+'8';
if b<>'1001' then
c:=c+'9';
if b<>'1010' then
c:=c+'A';
write('x=',c);
readln;
end;
end.