Вывести первую букву, длину слова и последнею букву - Pascal ABC

Формулировка задачи:

Программа которая выводит первую букву, длину слова и последнею букву. пример 4(это количество вводимых слов) привет Добро Компьютер Pascal Ответ должен получиться вот такой : п6т Д5о К9р P6l

дополнение к задаче если слово короче 4 символов то выводим его без изменений

Решение задачи: «Вывести первую букву, длину слова и последнею букву»

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

var
  S: string;
  i: byte;
  
begin
  write(' Введите слово:  ');
  readln(S);
  i := length(S);
  writeln;
  write('Результат:');
  if i > 3 then write(' ', s[1], '', i, '', s[i])
  else write(' ', S)
end.

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

В данном коде используется язык программирования Pascal ABC.

Переменная S объявлена как строка (string).
Переменная i объявлена как байт (byte).
В блоке begin происходит чтение строки из ввода пользователя с помощью функции readln.
Длина строки сохраняется в переменной i.
Выводится пустая строка с помощью функции write.
Если длина строки больше 3, то выводится первая буква строки, пробел, длина строки и последняя буква строки. Для этого используется условный оператор if.
Если длина строки меньше или равно 3, то выводится вся строка.
В блоке end заканчивается программа.