К 25 и 27 октября возьмите шаблон и вставьте все пункты сам работы, так легче будет понять!

program stroka;

var s:string ;b:char; k,i,n:integer;

Begin

write('Введите строку'); read(s);

write('Введите букву'); read(b);

n:=length(s);

end.