Файлы

[werser]

Кто то может помочь пожалуйста с такими задчами:
1. В текстовом файле нужно посчитать количество слов полиндромов или полиномов вобщем к примеру АННА АББА .

2. Словами из тестового файла забить ячейки масива

[[koyot]]

program num2;
  var f:textfile;
         a:array[1..100] of string;
       k,  i:integer;
begin
i:=0;
 assignfile (f,'input.txt');
  reset(f);
  while not eof do begin
   inc(i);
   readln (f,a[i]);
end;
 closefile(f);
 for k:=1 to i do
  writeln (a[k]);
readln;
end.

вот

[[koyot]]

program num1;
          var f:textfile;
               a:array [1..100] of string;
              l, k,i,otv:integer;
          ri,lf,dop:string;
   begin
 assignfile (f,'input.txt');
 reset(f);
  while not eof do begin
   inc(i);
  readln (f,a[i]);
   end;
 for k:=1 to i do begin
dop:='';
     for l:=length(a[k]) downto 1 do 
   dop:=dop+copy(a[k],l,1); 
if a[k]=dop then 
inc(otv);
end;
closefile(f);
writeln (otv);
readln;
end.

1 я

[[koyot]]

спасибо-незачто

[werser]

От фонаря наисал , хоть Ф9 пробовал нажать?