Изменится ли строка ST, над которой произведут операцию COPY? Почему?Чему будет

Изменится ли строчка ST, над которой произведут операцию COPY? Почему?

Чему будет приравниваться k после операции k:=length(мышь и клавиатура)?

Чему будет приравниваться переменная tx после операции tx:=лесник; delete(tx,4,3)?

Чему будет приравниваться переменная k после операции tx:=баобаб; k:=pos(ба,tx)?

Дополнить программу недостающими командами

Подсчитать количество букв а в тексте (российских и латинских; строчных и больших).

program zadacha1;

var t:string;

b:string[1];

n,k,i:integer;

Begin

writeln('Введите текст');

;

n:=length(t);

k:=0;

for i:=1 to n do

begin

b:=copy(t,i,1);

if then k:=k+1;

end;

writeln('k=',k);

End.