Question

помогите пожалуйста разобраться с кодом, и по возможности прикрепите исправленный вариант.​

Answer 1

Переменную s1 надо сделать не строкового, а символьного типа (char -тип для хранения одного символа). Только из такого типа можно вписать отдельный символ назад в строку.

Можно правда оставить как есть, тогда перед записью в строку s надо из строки s1 выделять этот символ:  s[j+1] := s1[1]

Но лучше всё же поменять тип переменной.