Pascal - String Palíndroma

Palíndroma é a palavra ou frase que lida de trás para frente não altera o sentido. Inspirado no estilo palíndromo, criei um programa em Pascal que lê strings do teclado até que uma string não palíndroma seja lida.
O programa deve escrever na tela o número de strings palíndromas que foram lidas.



Definição: uma string é dita palíndroma se e somente se: o primeiro carácter, caso exista, for igual ao último; o segundo carácter, caso exista, for igual ao penúltimo; e assim sucessivamente.