ACBBADAD 你程序有问题,帮你改了varn,ans,i,j:integer;s:string;function get(i:integer):char;beginif i=n thenget:=selseget:=s[i-n];end;beginreadln(s);n:=length(s);ans:=1;for i:=2 to n dobeginfor j:=0 to n-1 doif (get(i+j)>get(ans+j)) thenbeginans:=i;break;endelse if get(i+j)>get(ans+j) then...