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

[симав]

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

[симав]

Вот написала, но не идет.
1)

Код

var
s,d,a,o:string;
Ko,Ka:integer;
begin
Ko:=0;
Ka:=0;
writeln('s');
readln(s);
if d=a then Ka:=Ka+1;
if d=o then Ko:=Ko+1;
writeln('Ka=',Ka);
writeln('Ko=',Ko);
readln;
end.

2)

Код

var
s,d,a:string;
begin
writeln('s');
readln(s);
d:=a(1-oe slovo);
a(1-oe slovo):=a(posled);
a(posled):=d;
writeln('s');
end.

Тегами пользуйтесь ...