ac1013.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 28 行

program tju1013;
var
  s:string;
  n,m,i,j,p,q:byte;
  c:char;
begin
  repeat
    s:='';
    repeat
      read(c);
      if c=' ' then break;
      s:=s+c;
    until false;
    n:=length(s);
    readln(m);

    p:=0;
    for i:=1 to n-m do begin
      q:=p+1;
      for j:=q+1 to m+i do
        if s[j]<s[q] then q:=j;
      write(s[q]);
      p:=q;
    end;
    writeln;
  until seekeof;
end.