Ввести строку символов определить и вывести на экран ее длину. вывести на экран первый и последний символ этой строки

PascalABC

 var   
s : string;   
l : integer;    
begin 
readln (s); 
l := Length(s); 
writeln (l); 
writeln (s[1]); 
writeln (s[l]); 
end.