Написать программу,выводящую на экран словоб составленное из второй и предпоследней букв данной строки

Var a:string;
begin
writeln('Введите строку');
readln(a);
write(a[2]);
write(a[length(a)-1]);
end.