Дана строка. Вывести первый, последний и средний (если он есть)) символы.НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ.ПОЖАЛУЙСТА ОЧЕНЬ НАДО

Пожалуйста.

var s:string; l:integer;beginwrite('Введите строку: ');readln(s);writeln('Первый символ: ',s[1]);l:=length(s);writeln('Последний символ: ',s[l]);if l mod 2 = 1 then writeln('Средний символ: ',s[l div 2+1]) else writeln('Длина строки четна');end.Пример:Введите строку: ПАСКАЛЬПервый символ: ППоследний символ: ЬСредний символ: К