Работа с строчными переменными в Pascal. помогите плиз, оч срочно нада!
В заданном тексте найти все слова-Палиндромы (Палиндромы-слова, которые одинаково читаются слева направо и справа налево; например, потоп)
[highlight=pascal]
var
s:string;
i,j,l:integer;
w:string;
f:boolean;
begin
readln(s);
w:='';
for i:=1 to length(s) do
begin
if (s<>' ') then
w:=w+s;
if (s=' ') or (i=length(s)) then
begin
f:=true;
l:=length(w);
for j:=1 to (l div 2) do
if w[j]<>w[l-j+1] then
f:=false;
if f then
writeln(w);
w:='';
end;
end;
readln;
end.
[/highlight]
var
s:string;
i,j,l:integer;
w:string;
f:boolean;
begin
readln(s);
w:='';
for i:=1 to length(s) do
begin
if (s<>' ') then
w:=w+s;
if (s=' ') or (i=length(s)) then
begin
f:=true;
l:=length(w);
for j:=1 to (l div 2) do
if w[j]<>w[l-j+1] then
f:=false;
if f then
writeln(w);
w:='';
end;
end;
readln;
end.
[/highlight]
ОГРОМНОЕ ВАМ СПАСИБО, ОЧЕНЬ ВЫРУЧИЛИ!!!!!!!!!!