Дописать в конец строки строки ее длину - Pascal ABC

2.Дана строка.Дописать в конец ее строки ее длину.

Листинг программы

var s:string;
begin
writeln('Введите строку');
readln(s);
s:=s+inttostr(Length(s));
writeln('Полученная строка');
write(s);
end.

Объяснение кода листинга программы

Создается переменная s типа string, которая будет использоваться для хранения введенной пользователем строки.
Выводится сообщение Введите строку.
Пользователю предлагается ввести строку.
Строка сохраняется в переменную s.
Вычисляется длина введенной строки с помощью функции Length(s).
К переменной s добавляется строка, полученная от преобразования длины строки из целого числа в строку с помощью функции IntToStr.
Выводится сообщение Полученная строка.
Полученная строка выводится на экран.