Дано слово, вывести кол-во символов в слове, 1 и последнюю букву в слове. паскаль

Program n1;
var s: string;
begin
readln(s);
write('1 буква: ',s[1],' ,последняя буква: ', s[length(s)],' ,длина строки: ',length(s));
end.