Путем удаления и вставок собрать из слова "Портфель" слово "Фото" - Pascal ABC

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

Путем удаления и вставок собрать из слова "Портфель" слово "Фото".

Решение задачи: «Путем удаления и вставок собрать из слова "Портфель" слово "Фото"»

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

var
  s:string;
begin
  s:='портфель';
  delete(s,6,3);
  delete(s,1,1);
  delete(s,2,1);
  insert(s[3],s,1);
  delete(s,4,1);
  insert(s[2],s,4);
  writeln(s);
  readln;
end.

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

Переменная s инициализируется значением 'портфель'.
Строка s подвергается операции удаления символов: удаляются символы под индексами 6, 3 и 2, что приводит к изменению строки s на 'фртфл'.
Строка s подвергается операции вставки символа: вставляется символ под индексом 3 в начало строки s, что приводит к изменению строки s на 'фртфл'.
Строка s подвергается операции удаления символов: удаляются символы под индексами 4 и 2, что приводит к изменению строки s на 'фртф'.
Строка s подвергается операции вставки символа: вставляется символ под индексом 2 в конец строки s, что приводит к изменению строки s на 'фртф'.
Выводится строка s, которая содержит 'фртф'.
Программа завершается, ожидая ввода пользователя.