Текстовый файл

[Violleta]

Помогите определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.). Создать из них новый текст, удалив их из заданного текста.

В String я написала если это поможет, а как сделать это через текстовый файл в паскале?

uses crt;
var t1,t2,t3,t4:string;
k,i,j:integer;
mn:set of char;
 
function position(t:string) : integer;
var
i:integer;
begin
i:=0;
repeat
inc(i);
until t[i] in mn;
position:=i;
end;
 
begin clrscr;
writeln('vvedi text');
readln(t1);
if t1[length(t1)] <> ' ' then
t1:=t1+' ';
mn:=[' ',',','.','!','?',':',';'];
 
t2:='';
t3:='';
t4:='';
while t1<>'' do
begin
k:=position(t1);
t2:=copy(t1,1,k-1);
t3:='';
for i:=length(t2) downto 1 do t3:=t3+t2[i];
if t2=t3 then writeln('clovo ',t2 ,'- polindrom');
delete(t1,1,k);
end;
 readkey;
end.

Выручите пожалуйста


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ByAlex]

[QUOTE=Violleta;760889]Помогите определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.). Создать из них новый текст, удалив их из заданного текста.

В String я написала если это поможет, а как сделать это через текстовый файл в паскале?

Violleta, Я уже написал - http://programmersforum.ru/showthread.php?t=142813