Chương trình:

uses crt;
var f:text; i,j,n,x,k,m:longint; s,kq:string;
begin
clrscr;
   assign(f,'input.pas');reset(f);
      readln(f,s);
      readln(f,k);
   close(f);
   assign(f,'output.pas');rewrite(f);
   m:=1;
      for i:=1 to k do
         begin
            x:=1;
            for j:=m to length(s)-(k-i) do
               if (s[j]>s[x]) then x:=j;
            kq:=kq+s[x]; delete(s,x,1); m:=x;
         end;
      writeln(f,kq);
   close(f);
readln
end.

Thuật toán:

Ta sẽ tìm 3 số lớn nhất theo thứ tự là:

    Chạy từ 1 đến k (tìm k số):

        Chạy j từ m đến length(s)-(k-i) (m là biến đánh dấu vd như là mình chọn số 9 rồi thì không                                                                  được chọn số khác đứng trước nó. length(s)-(k-i) là giới hạn để                                                            chọn được số 6): tìm max

         xóa max, thêm vào kết quả.

Mong được góp ý

Cho mình xin hay nhất.

uses crt;

var f,g:text;

      s:string[100];

      n:byte;

procedure kt_ndl;

     begin

          Assign(f,'DAYCON.INP');     

          Assign(g,'DAYCON.OUT');     rewrite(g);

          {$I-} reset(f); {$I+}

          if IOresult<>0 then

               begin

                    rewrite(f);

                    reset(f);

               end;

          readln(f,s);

          readln(f,n);

          close(f);

     end;

procedure xuly;

var st:string[100];

       i,vt:byte;

       max:char;

begin

     st:='';  vt:=1;

     while length(st)<>n do

          begin

               max:=s[vt];

               for i:=vt+1 to length(s)-n+length(st)+1 do

                    if s[i]>max then

                         begin

                              max:=s[i];

                              vt:=i;

                         end;

               st:=st+max;

               vt:=vt+1;

          end;

     write(g,st);

     close(g);

end;

BEGIN

kt_ndl; xuly;

end.