Строгий палиндром

Pas.0015. Напишите программу, которая определяет, является ли заданная строка строгим палиндромом (перевертышем).

Решение.

program StrongPalindromeString;

var
    s : string = 'тет-а-тет';
    l : integer = length(s);
    i : integer;
    isPalindromeString : string = '';

begin
 
    for i := 1 to (l div 2)  do
    begin
        if s[i] <> s[l-i+1] then
        begin
            isPalindromeString := 'не ';
            break
        end
    end;
  
    write('Строка «' + s + '» ' +
        isPalindromeString + 'является палиндромом.');
end.

Консоль.

Строка «тет-а-тет» является палиндромом.