Строки - Pascal ABC (248645)

Формулировка задачи:

Помогите, пожалуйста! Выбрать из заданного множества слова-перевертыши.

Решение задачи: «Строки»

Листинг программы

var
a:string;
i,j,f,n:integer;
begin
writeln('vvedite kolichestvo slov');
readln(n);
for i:=1 to n do
begin
writeln('vvedite slovo');
readln(a);
f:=0;
for j:=1 to length(a) div 2 do
if a[j]<>a[length(a)-j+1]then f:=1;
if f=0 then writeln (a,' - palindrom') else writeln(a,'- ne palindrom');
end;
end.

Объяснение кода листинга программы

Объявление переменных: строка a для хранения слова, целочисленные переменные i, j, f и n для управления циклом и проверки на четность/нечетность.
Вывод сообщения с просьбой ввести количество слов.
Цикл по количеству введенных слов.
Внутри цикла вывод сообщения с просьбой ввести слово.
Внутри цикла инициализация переменной f равной 0.
Цикл по половине длины слова (если слово нечетной длины, то до (длина-1)/2).
Внутри цикла проверка на четность символов слова (если текущий символ не равен символу с противоположной позиции, то переменная f становится равной 1).
Если f равна 0, то выводится сообщение, что слово является палиндромом.
Если f не равна 0, то выводится сообщение, что слово не является палиндромом.
Конец программы.