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

Спасибо большое!

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