mọi người vào góp ý bài này.pascal về xâu.

[noithatkienan]

PROGRAM test;
USES crt;
VAR f1,f2:TEXT;
x,y,d,i,j,n: BYTE;
m,Q,S,p : STRING;
FUNCTION KT(S: STRING): BOOLEAN;
BEGIN
x:=length(S);
p:='';
FOR n:=x DOWNTO 1 DO
p:=p+S[n];
IF p=S THEN KT:= TRUE;
END;
BEGIN
assign(f1,'E:\input.txt');
reset(f1);
assign(f2,'E:\output.txt');
rewrite(f2);
Q:='';
WHILE NOT eof(f1) DO
BEGIN
read(f1,m);
Q:=Q+m;
END;
y:=length(Q);
d:=0;
FOR i:=1 TO y-1 DO
FOR j:=j+1 TO y DO
BEGIN
S:=copy(Q,i,j-i+1);
IF KT(S) THEN d:=d+1;
END;
writeln(f2,'trong tep input co',d,'xau doi xung');
close(f1); close(f2);
END.

[anhdgc]

ĐỀ BÀI: tìm số xâu đối xứng có trong xâu ban đầu trong tệp input. đưa ra màn hình kết quả đó.