Code nén xâu bị exit code 201

[Hoang_Phung2 (Hoàng Phùng)]

em bị exit code 201 ạ giúp em với ạ đúng ra output phải là3A2B2b2cbd ạ
đây là bài nén xâu ạ

[noname00 (HK boy)]

Bạn đăng code của bạn dưới dạng chữ lên đây.

[Hoang_Phung2 (Hoàng Phùng)]

em có đọc bài rồi nhưng không hiểu ạ

[noname00 (HK boy)]

Bạn chép code của bạn lên đây đi.

[Hoang_Phung2 (Hoàng Phùng)]

em không biết chép ạ

[noname00 (HK boy)]

Bạn mở file pas của bạn bằng notepad rồi copy paste nội dung vào đây.

[Hoang_Phung2 (Hoàng Phùng)]

const   fi='bai2.inp';
        fo='bai2.out';
var     s:ansistring;
        i,j,dem:longint;
begin
        assign(input,fi);assign(output,fo);
        reset(input);rewrite(output);
        readln(s); dem:=0; s:=s[1]+s;j:=length(s);
        for i:=1 to j do
                if s[i]=s[i+1] then inc(dem)
                else begin if dem<>1 then write(dem,s[i]) else write(s[i]); dem:=1; end;
        close(input);close(output);
end.

khi em khai báo xâu s string thì không bị nhưng đề bài bắt độ dài xâu lên tới 10^5 kí tự

[noname00 (HK boy)]

Không quan trọng độ dài string là bao nhiêu, bây giờ nếu i = length(s) thì phần tử i+1 nằm ngoài string rồi

Giải pháp là for i từ 1 đến length(s)-1 thôi, sau khi hết for thì kiểm tra lại biến dem 1 lần nữa.

[Hoang_Phung2 (Hoàng Phùng)]

em cảm ơn ạ