S := 'ABCDEF';
T := 'rinda';
Insert(T, S, 3);
T := Copy(T, 3,1);
Write (S, ' ', T);

и еще один фрагментик другой программы:

Var a,b,d:string; c: integer;
Begin
a:= 'pascal';
b:='stunda';
c:=pos(b,a);
d:=copy(b,3,2);
insert(d,a,1);
delete(b,1,4)
write(a,b,c,d);
end.

Возьми блокнот, сделай необходимые операции, и узнаешь

Ну, возьми, попробуй сделать... Ты сам-то знаешь? Не блокнот надо брать, а учебник Паскаля.

это как долг за прошлый курс у меня тяжется.. я хотябы должна написать тест, чтобы 4(проходной балл) по 10 бальной системе было.. там такой вопросик, дома вот разбираю... помогите плииз

Поможем... Только помочь - это не написать ответ, правда? Что делает процедура Insert и функция Copy - разобралась?

в первой программе, как я вычислила, получится ABCrindaDEF d ?

Ошиблась... Символы в строках нумеруются с единицы, а не с 0, поэтому перед последним Write-ом в строке T будет не буква d... Посмотри внимательнее...

По той же причине и чуть выше - тоже ошибка...