这样不行么？

readln(n,m);

for i:=1 to n do read(a[i]);

for i:=1 to m do

begin

j:=n;

while a[j-1]>a[j] do dec(j);

k:=n-j+1; k:=k div 2;

for t:=1 to k do

begin

tt:=a[j+t-1]; a[j+t-1]:=a[n-t+1]; a[n-t+1]:=tt;

end;

for t:=1 to n-j+1 do

if a[j+t-1]>a[j-1] then

begin

tt:=a[j+t-1]; a[j+t-1]:=a[j-1]; a[j-1]:=tt;

break;

end;

end;

for i:=1 to n do write(a[i],' ');