Дана строка. Вывести первый, последний и средний (если он есть)) знаки.НАПИСАТЬ

Var s:string; l:integer;
begin
write('Введите строчку: ');
readln(s);
writeln('1-ый знак: ',s[1]);
l:=length(s);
writeln('Заключительный знак: ',s[l]);
if l mod 2 = 1
 then writeln('Средний символ: ',s[l div 2+1])
 else writeln('Длина строчки четна');
end.

Пример:
Введите строчку: ПАСКАЛЬ
Первый символ: П
Последний знак: Ь
Средний знак: К