Текст в паскале

[Violleta]

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

[Violleta]

в строках всё нормально получаеться а в тексте вобше никак
код:

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]

Ну в принципе вот -

program ProjectPolinom;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  t1,t2,t3:string;
  k,i,j,kol:integer;
  mn:set of char;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    writeln('Vvedite text:');
    readln(t1);
    mn:=[#0,' ',',','.','!','?',':',';'];
    t2:='';
    t3:='';
    kol:=0;
    i:=1;
    while t1<>'#0' do
    begin
      if not (t1[i] in mn) then
      t2:=t2+t1[i]
      else
      begin
        for j:=length(t2) downto 1 do t3:=t3+t2[j];
        if t2=t3 then
        begin
          writeln('clovo ',t2 ,' - polinom');
          delete(t1,i-length(t2)-1,length(t2)+1);
          i:=i-(length(t2)+1);
          kol:=kol+1;
          t2:='';
          t3:='';
        end
        else
        begin
          t2:='';
          t3:='';
        end;
      end;
      if t1[i]=#0 then break;
      i:=i+1;
    end;
    writeln;
    if kol<>0 then
      writeln(t1)
      else writeln('Polinomov net!!!');
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

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