Условие не выполняется

label vvod,otbor,pss;
var
n,l:integer;
str,slovo:string;
A:array of string;
B:array  of boolean;
i,j,k,h:integer;
  begin
  repeat
  writeln('Введите количесвто слов(от 2 до 50),которое собираетесь вводить,слово должно состоять от 1 до 8 строчных латинских букв');
 
 
 
  readln(n);
  until (n>1) and (n<=50);
  SetLength(A,n);
  SetLength(B,n);
  k:=-1;
  read(str);
  vvod:
 
  for i:=1 to length(str) do begin //заполняем массива слов
      if (str[i]=' ') or (str[i]='.') or (str[i] in ['A'..'Z']) or (str[i] in ['А'..'Я']) or (str[i] in ['а'..'я'])   then begin
        k:=k+1; //индексация массива А
        for j:=1 to i-1 do
          A[k]:=A[k]+str[j];
            begin //делаем 1 пробел между словами
            l:=1;
            repeat
              if copy(str,l,2)='  ' then
              str := copy(str,1,l) + copy(str,l+2,length(str))
              else
                l := l + 1
        until (l > length(str));
        end;
     Delete(str,1,i); //удаляем пробел
   
    if str<>nil then goto vvod;
 
  end;
  
end;
B[n-1]:=false; //поледнее слово не выводим
for i:=0 to n-1 do //проверяем каждое слово на симметричность
  begin
    slovo:=A[i];
    h:=length(A[i]);
    k:=0;
    for j:=1 to h div 2 do 
      if slovo[j]=slovo[h+1-j] then k:=k+1;
    if k=h div 2 then B[i]:=true else B[i]:=false;
    if h>8 then goto vvod;
  end;
  
 
for i:=0 to n-2 do //проверяем слова на равенство с последним
  if A[i]=A[n-1] then B[i]:=false;
 
writeln('Результат: '); //выводим результат
for i:=0 to n-2 do
  if B[i]=true then write(A[i],' ');
  end.

begin
  var s := ReadLnString('Введите последовательность слов:');
  if s.IndexOf('.')>-1 then s := s.Left(s.IndexOf('.'));
  WriteLn(s);
end.

begin
  var s := ReadLnString('Введите последовательность слов:');
  if s.IndexOf('.')>-1 then s := s.Left(s.IndexOf('.'));
  if s.Length = 0 then Halt;
  var words := s.ToWords;
  foreach var word in words do WriteLn(word);
end.

begin
  var s := ReadLnString('Введите последовательность слов:');
  if s.IndexOf('.')>-1 then s := s.Left(s.IndexOf('.'));
  if s.Length = 0 then Halt;
  var words := s.ToWords;
  foreach var word in words do
    if (word <> words.Last) and (word = ReverseString(word)) then
      Print(word);
end.

begin
  var s := ReadLnString('Введите последовательность слов:');
  if s.IndexOf('.')>-1 then s := s.Left(s.IndexOf('.'));
  if s.Length = 0 then Halt;
  s.ToWords.Where(word->(word <> s.ToWords.Last) and (word = ReverseString(word))).PrintLn;
end.

  if s.IndexOf('.')<0 then Halt;

begin
  var s := ReadLnString('Введите последовательность слов:');
  if s.IndexOf('.')<0 then Halt;
  if s.IndexOf('.')>-1 then s := s.Left(s.IndexOf('.'));
  if s.Length = 0 then Halt;
  if Regex.Replace(s, '[^ a-z]', '').ToString <> s then Halt;
  s.ToWords.Where(word->(word <> s.ToWords.Last) and (word = ReverseString(word))).PrintLn;
end.

  if s.ToWords.Max(word->word.Length) > 8 then Halt;

begin
  var s := ReadlnString('s ='); s := LeftStr(s, s.IndexOf('.') + 1);
  var w := s.ToWords(' .'.ToArray);
  if (s.Trim = '') or (s.Any(v -> not (v in [' ', '.', 'a' .. 'z'])))
                   or (not w.Count.InRange(2, 50)) 
                   or (w.Any(v -> v.Length > 8)) then writeln('Ошибочные входные данные')
  else w.Where(v -> (v <> w.Last) and (v = ReverseString(v))).Println;
end.