Выяснить, сколько в тексте слов перевертышей

function pal(p: string): integer;
var i: integer;
begin
  pal := 1;
  for i := 1 to length(p) div 2 do if p[i] <> p[length(p) - i + 1]
    then begin
      pal := 0;
      break
    end
end;
const br: set of char = [' ', ',', '.', '?', '!', '''', '"', ':', ';'];
var s: string;
    i, k: integer;
begin
  writeln('Enter string:');
  readln(s);
  s := s + ' ';
  k := 0;
  while length(s) > 0 do
    begin
      while (length(s) > 0) and (s[1] in br) do delete(s, 1, 1);
      for i := 1 to length(s) do if s[i] in br
        then begin
          k := k + pal(copy(s, 1, i - 1));
          delete(s, 1, i);
          break
        end
    end;
  writeln('Palindroms in string: ', k);
  readln
end.

while length(s) > 0 do
    begin
      while (length(s) > 0) and (s[1] in br) do delete(s, 1, 1);
      for i := 1 to length(s) do if s[i] in br
        then begin
          k := k + pal(copy(s, 1, i - 1));
          delete(s, 1, i)

//...
  while length(s) > 0 do //потрошим строку, пока в ней есть символы
    begin
      while (length(s) > 0) and (s[1] in br) do delete(s, 1, 1); //удаляем разделители в начале строки
      for i := 1 to length(s) do //цикл, вырезаем слово из строки
        if s[i] in br //если очередной символ строки в множестве разделителей,
          then begin //то
            k := k + pal(copy(s, 1, i - 1));
//прибавляем к счётчику палиндромов значение функции pal 
//с аргументом-строкой от начала строки s до разделителя
//Значение функции pal: если её аргумент - палиндром, то pal=1, иначе pal=0
            delete(s, 1, i); //удаляем слово из строки
            break //досрочно завершаем цикл, так как слово вырезали и определились с ним
          end
    end;
//...