uses
  crt;

const
  FileName = 'input.txt';
  abc = ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я'];

var
  fdata: text;
  st, temp: string;
  count: integer;

function Palindrome(st: string): boolean;
begin
  Result := False;
  for var i := 1 to Length(st) div 2 do
    if st[i] = st[length(st) - i + 1] then Result := True
    else
    begin
      Result := False;
      break;
    end;
end;

begin
  if FileExists(FileName) then
  begin
    Assign(FData, FileName);
    Reset(FData);
    Count := 0;
    while not Eof(FData) do
    begin
      Readln(FData, St);
      St += #9;
      for var i := 1 to Length(St) do
      begin
        if St[i] in ABC then Temp += St[i]
        else
        begin
          if Palindrome(Temp) and (Length(Temp) > 1) then
          begin
            Count += 1;
            TextColor(Green);
            Write(Temp);
            TextColor(LightGray);
          end
          else Write(Temp);
          Temp := '';
          Write(St[i]);
        end; // end in ABC
      end; // end for i
      Writeln;
    end; // end while eof(fdata)
    Close(FData);
    Writeln('Кол-во слов-палиндромов: ' + Count);
  end // end FileExists
  else Writeln('Ошибка: Файл ' + FileName + ' не найден...:(');
end.