Строки и буквы Опции

[симав]

Кто-нибудь, помогите! Училка задала программы, а тему даже не объяснила! Помогите сделать их.
1. Подсчитать, каких букв в тексте больше: "а" или "о". Текст взять любой.
2. Поменять местами первую и последнюю букву в заданном тексте. Текст любой.
3. Подсчитать кол-во предложений в тексте. Текст любой.
Заранее спасибо! :D

[симав]

И снова я! :D Три задачки:
1) Подсчитать количество слов в тексте, начинающихся на "k".
2) Составить программу перестановки левой и правой частей текста с четным количеством символов.
3) Преобразовать текст, удалив из него все "*", предшесвующих 1-ой точке, и заменить на "+" все "3", встречающихся после 1-ой точки.

Код

1)var s:string;
        i,n:integer;
begin
n:=0;
writeln('s='); readln(s);
for i:=1 to length(s) do
if s[i]='k' then n:=n+1;
writeln(s);
end.

здесь у меня почему-то считает все буквы "к".

Код

3)   var st:string;
i:integer;
begin
writeln('st');
readln(st);
i:=pos('.',s);
delete(s,pos('*',s),1);
for i := 1 to length(st) do
if st[i]='3' then s[i]:='+';
writeln(st);
end.

На "+" заменяет, а "*" не удаляет.
Что не так?