sửa giùm em!!!

[Snow Fox]

Đề bài : nhập vào 1 xâu..tìm từ đối xứng có độ dài lớn nhất



program xau;
const fi='xau.inp';
fo='xau.out';
type mmc=array[1..100] of string;
var tu:mmc;
st:string; d,dx:boolean;
i,j,n,max,l :integer; f:text;
begin
assign(f,fi);
reset(f);
read(f,st);
close(f);
i:=1;
while st<>'' do
begin
tu[i]:=copy(st,1,pos(' ',st)-1);
i:=i+1;
delete(st,1,pos(' ',st));
end;
assign(f,fo);
rewrite(f);
for j:=1 to i-1 do
begin
dx:=true;
j:=1;
n:=length(tu[i]);
repeat
if tu[i][j]<>tu[i][n] then dx:=false
else
begin
j:=j+1;
n:=n-1;
end;
end;
max:=0;
for j:=1 to i do
begin
d:=false;
if length(tu[i])>max then d:=true;
if d=true then
begin
writeln(f,1);
writeln(f,tu[i]);
end;
write(f,0);
close(f);
end.