Mình đã chạy thử test ví dụ và một số test khác thấy ok nhé. Học tốt ^^

const fi='substr.inp';
      fo='substr.out';
var s:string;
    t,i,j,max,l:byte;
function check(l,r:byte):boolean;
var a,b:byte;
begin
        for a:=l to r do
                for b:=l to r do
                        begin
                                if b=a then break else
                                if s[a] = s[b] then exit(false);
                        end;
        exit(true);
end;
begin
        assign(input,fi);
        reset(input);
        read(s);
        close(input);
        t:=length(s);
        for j:=t downto 1 do
                for i:=1 to j do
                        begin
                        if j-i+1 < max then break;
                                if check(i,j) then
                                        begin
                                                if j-i+1 >= max then
                                                        begin
                                                                max:=j-i+1;
                                                                l:=i;
                                                        end;
                                        break;
                                end;
                        end;
        assign(output,fo);
        rewrite(output);
        write(l,' ',max);
        close(output);
end.