Строка является палиндромом, если слева направо и справа налево она читается одинаково, например "кабак", "боб", "asdfggf' dsa". Составьте алгоритм и напишите программу, определяющую, является ли строка палиндромом.

Function Palindrome (const s: string): boolean;

vari, len: integer;
begin
    i:= 0;
    len:= length (s);
    result:= true;
    while (i < len div 2) and result do
         begin
             inc (i);
             result:= s[i] = s[len + 1 - i]
         end 

end;

Решение на паскале