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

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