Free pascal. Написать программу детектирования слова-полиндрома

для экономии памяти можно использовать переменную byte. Маловероятно, что будет слово длинной integer)

точнее строка и не может быть длиннее байта. Так что используйте байт

var s : string;    i, k : integer;begin   Readln(s);   k:=0;   for I := 1 to Length(s) div 2 do     if s[i]= s[Length(s)-k] then k:=k+1;     if k= Length(s) div 2 then  Write('Полиндром') else Write('Не полиндром');     Readlnend.