Определить, является ли введенная с консоли строка палиндромом - Free Pascal

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

Программа определяет, является ли введенная с консоли строка симметричной. Например, строка «казак» симметрична. Её можно одинаково прочитать слева направо и справа налево.

Решение задачи: «Определить, является ли введенная с консоли строка палиндромом»

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

n:=length(s);
k:=0;
i:=1;
while(i<=n div 2)and(k=0) do
if s[i]<>s[n-i+1 then k:=1 else inc(i);
if k=0 then write('Симметрична')
else  write('Не симметрична');

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

Входные данные: строка s, полученная с консоли.
Определение длины строки: переменная n инициализируется значением длины строки s.
Инициализация счётчиков: переменные k и i инициализируются начальными значениями.
Проверка на симметрию: выполняется цикл, пока i меньше n/2 и k равно 0.
Сравнение символов: если s[i] не равно s[n-i+1], то k устанавливается в 1.
Увеличение счётчика: если k равно 0, то увеличивается значение i.
Вывод результата: если k равно 0, то выводится сообщение Симметрична, иначе выводится сообщение Не симметрична.