Вывести целое число и найти правильно ли, что в его записи

Var n:integer;var b:array[0..9] of boolean;var f:boolean;begin     f := false;     readln(n);     while n gt; 0 do           begin                if b[n mod 10] then                   begin f := true; break; end                else b[n mod 10] := true;                n := n div 10;           end;     if f then writeln('da') else writeln('net');end.