Bạn dùng đệ qui này để tăng xâu lên một đơn vị nè
procedure incstr(k:integer);
begin
if s[k]='9' then
begin
s[k]:'0';
incstr(k-1);
end else s[k]:=char(ord(s[k])+1);
end;
Nhưng mà mình không dùng cái này để mỗi lần lặp rồi kiểm tra xâu này có đối xứng hay không, Nếu dùng như vậy chỉ...
