Bạn sai điều kiện chỗ while nhé, phải là while (n > 0) do và min:=n mod 10 nhé tại vì nếu đặt min:=0 thì tất cả các chữ số trong số bạn đã nhập đều không bé hơn min nên nó không đúng

Sửa:

uses crt;
var n: longint;
    k, min: byte;
begin
clrscr;
    readln(n);
    
    min:=n mod 10;
    
    while (n > 0) do
        begin
            k:=n mod 10;
            if k < min then min:=k;
            n:=n div 10;
        end;
    
    writeln(min);
readln;
end.

uses crt;
var n,min,k: integer;
begin
clrscr;
    write('N='); readln(n);
    min:=n mod 10;
    while n<>0 do begin
        k:=n mod 10;
        if min>k then min:=k;
        n:=n div 10;
    end;
    write('So nho nhat trong n la: ', min);
    readln;
end.

`***` Lỗi sai 1: lúc đầu bạn gán Min=0, mà 0 là số bé nhất nên kết quả luôn trả về `0`

`***` Lỗi sai 2: Với điều kiện của vòng lặp while của bạn (while (n<0)) ở đây thì bạn đã hơi nhầm một chút, vì trường hợp `n>0` thì vòng while này sẽ không được lặp.