Найти количество симметричных строк, которые не содержат цифр

var s:Tar; i:Tind; j,k,sum:integer; b:boolean;
for i:=1 to n do 
  readln(s[i]);
sum:=0;
for i:=1 to n do begin
  k:=0;
  b:=true;
  for j:=1 to length(s[i]) do
    if (s[i][j]>'0') and (s[i][j]<'9') then b:=false;
  if b=true then begin
    for j:=length(s[i]) downto 1 do
       if s[i][j]=s[i][n-j+1] then k:=k+1;   //  ---------------------------------    (В этой строке выдает ошибку "Индекс находился вне границ массива.")
    if (k=length(s[i])) then sum:=sum+1;                                          ////////////////////////// /////////////       (ошибка выводится только после ввода строк)
  end;
end;
writeln(sum);
end.

  if b then begin
    for j:=length(s[i]) downto 1 do
       if s[i][j]=s[i][length(s[i])-j+1] then k:=k+1;
    if (k=length(s[i])) then sum:=sum+1;
  end;

if b then

if not b then

for i:=1 to n do begin
  for j:=1 to length(s[i]) div 2 + 1 do begin
    b := not(s[i][j] in ['0'..'9']) and s[i][j]=s[i][length(s[i])-j+1];
    if not b then break
  end;
  if b then inc(sum)
end;

for i:=1 to n do begin
  if length(s[i]) = 0
    then b:=true
    else for j:=1 to length(s[i]) div 2 + 1 do begin
      b := not(s[i][j] in ['0'..'9']) and s[i][j]=s[i][length(s[i])-j+1];
      if not b then break
    end;
  if b then inc(sum)
end;

for i:=1 to n do begin
  b:=true;
  if length(s[i]) > 0 then for j:=1 to length(s[i]) div 2 + 1 do
    if (s[i][j] in ['0'..'9']) or s[i][j]<>s[i][length(s[i])-j+1] then b:=false;
  if b then inc(sum)
end;