Var s, t: string; begin 5 :=' монитор' ; writeIn (length(s)); writeIn (pos('o',s)); delete(s, 3, 2); writeln (s); t:=copy(s, 3, 3); insert ('т',t,4); writeln(t); t[1]:=UpCase(t[1]); writeln(t); end.

Привет! Программа, которую ты предоставил, содержит некоторые ошибки: 1. Необходимо объявить переменные s и t перед их использованием: var s, t: string; 2. Вместо writeIn используй writeln для вывода результата на новой строке: writeln(length(s)); writeln(pos('o', s)); writeln(s); writeln(t); writeln(t); 3. Ошибка при использовании функции delete. Необходимо удалить символы с третьего и четвертого индексов, а не с третьего и второго: delete(s, 3, 2); А вот исправленный код: var s, t: string; begin s := 'монитор'; writeln(length(s)); writeln(pos('о', s)); delete(s, 3, 2); writeln(s); t := copy(s, 3, 3); insert('т', t, 4); writeln(t); t[1] := UpCase(t[1]); writeln(t); end. Надеюсь, это помогло! Если у тебя есть еще вопросы, не стесняйся спрашивать.