Определить, является ли цифра наименьшей в числе

Program Laba9;
 
uses crt;
 
Var 
     j,k,x,i,n,D,z: Integer;
 
   Begin
    Write('N=');
    Readln (N);
      x:=N mod 10;
      i:=0;
      j:=0;
      z:=10;
          while n<>0 do
 
                  begin
                    d:=N div z;
                    k:=d mod 10;
                    z:=z*10;
         
                    if x>k then
                     i:=i+1
                    else
                    j:=j+1;
                  end;
      if j=0 then write('Da')
      else
      write('Net');
      readln;
   end.

var
  n, i : integer;
  f : boolean;
begin
  repeat
    write('введите натуральное число: ');
    readln(n)
  until (n > 0);
  {последняя цифра}
  i := n mod 10;
  {оставляем в числе все цифры кроме последней}
  n := n div 10;
  {проверяем все цифры}  
  repeat
    f := false;
    if n = 0 then
    begin writeln('является единственной'); exit end
    else
    begin
      {если очередная цифра меньше последней
      прерываем цикл и флаг выставляем, что условие не выполнено}
      if n mod 10 < i then
      begin
        f := true;
        break
      end      
    end;
    {отбрасываем очередную цифру}
    n := n div 10
  until n = 0;  
  if f then writeln('не является минимальной') else writeln('является минимальной');
  readln
end.