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

program zz1;

var s: string; / / задаем переменную строкового типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

writeln (' длина исходной строки = ', length (s)); / / выводим на экран длину исходной строки

writeln (' первый символ исходной строки = ', s[1]); / / выводим на экран первый символ исходной строки

write (' последний символ исходной строки = ', s[length (s) ]); / / выводим на экран последний символ исходной строки

end.