Nhập một số nguyên và số k , xoá đi k chữ số trong số nguyên đó sao cho số còn lại có giá trị bé nhất

Ý TƯỞNG:

while (dem<k) do:

   -Kiểm tra xem 2 số liền kề nhau số nào lớn hơn thì xóa bỏ

   -nếu kiểm tra đến hết xâu mà không có cặp số nào như trên thì xóa cuối cùng

uses crt;
var n,tam : string;
    i,j,k,dem : integer;
    ktra : boolean;
BEGIN
    clrscr;
    write(‘Nhap N: ‘);
    readln(n);
    write(‘Nhap K: ‘);
    readln(k);
    dem := 0;
    ktra := false;
    while (dem<k) do
       Begin
          ktra := false;
          for i := 1 to length(n)-1 do
            begin
                  while (n[i]>n[i+1]) do
                   begin
                    delete(n,i,1);
                    inc(dem);
                    ktra := true;
                    if (dem>=k) then break;
                   end;
            end;
          if (ktra=false) then
           begin
            inc(dem);
            delete(n,length(n),1);
           end;
       End;
    writeln(n);
    readln;
END.