Создайте программу на языке паскаль, которая будет определять: является ли данная строка, введенная пользователем, палиндромом. ( тип обязательно char) и использовать функцию length. !

program z1;
var
s:string;
 l:boolean;
i,n :integer;
begin
writeln ('vvedite stroku');
readln (s);
n:=length(s)div 2;
for i:=1 to  n do
 begin 
if s[i]=s[n+1] 
then l:=true
 else l:=false 
end;
if l=true
 then writeln ('yes')
else writeln ('no');
end.