Помогите решить задачу

var s:string;

begin

write ('Введите слово: ');

readln (s);

if length(s) mod 2 = 0 then writeln ('Чётное (',length(s),')')

else writeln ('Нечётное (',length(s),')');

write (s[1],' ',s[3],' ',s[length(s)]);

end.