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

Var
   s:string;
begin
   Write('Введите строку: '); Read(s);
   Writeln('Длина строки равна ',Length(s));
   Writeln('Первый символ- ',s[1],', последний- ',s[Length(s)])
end.