Дано четырехзначное число N, выяснить: верно ли, что все 4 цифры этого числа различны

//PascalABC.Net 3.0, сборка 1064 var   n:integer;   i,d:byte;   b:array[0..9] of boolean;   fail:boolean; begin   Write('Введите четырехзначное натуральное число: ');   Read(n);   for i:=0 to 9 do b[i]:=False;   while (n>0) and (not fail) do begin     d:=n mod 10;     if b[d] then fail:=True else b[d]:=True;     n:=n div 10   end;   if fail then Writeln('В числе есть одинаковые цифры')   else Writeln('В числе нет одинаковых цифр') end. Тестовое решение: Введите четырехзначное натуральное число: 1263 В числе нет одинаковых цифр Введите четырехзначное натуральное число: 1315 В числе есть одинаковые цифры