Не работает программа поиска различных цифр в числе - Turbo Pascal

var
g:boolean;n,i,x,k,j:integer;
mas:array[1..20] of integer;
begin
write('введите натуральное число n:');
readln(n);
begin
k:=0;
x:=n;
g:=true;
while n>0 do {проверим сколько цифр и чисел}
begin 
k:=k+1;
mas[k]:=n mod 10;
n:=n div 10;
writeln(mas[k]);
end;
for i:=1 to k do {сравним цифры}
for j:=1 to k do
if (mas[1]=mas[j]) and (i<>j) then g:=false;
if g=true then writeln ('цифры в числе различны.')
else writeln ('цифры в числе не различны.');
end;
begin
end;
end