Написать программу

[dmon1990]

Помогите плиз Написать программу которая позволит ответить на следующие вопросы:
1. сколько в заданном слове букв А и сколько в нем букв О?
2. каких букв больше?

[Alex11223]

"Помогите" или "напишите за меня"?

[Aleksandr H.]

Да легко, напиши только описание переменных, ввод слова, вывод слова на екран.

[newerow1989]

var s:string;
    i,ia,io:integer;
begin
   Write('s = ');Readln(s);
   ia:=0;
   io:=0;
   For i:=1 to Length(s) do
   begin
      If (s[i]='a') or (s[i]='A') then
         ia:=ia+1;
      If (s[i]='o') or (s[i]='O') then
         io:=io+1;
   end;
   Writeln('a - ',ia);
   Writeln('o - ',io);
   Readln;
end.

var s:string;
    c:char;
    i:integer;
    p:array[Ord('A')..Ord('Z')] of integer;
begin
   Write('s = ');Readln(s);
   For i:=Low(p) to High(p) do
      p[i]:=0;
   For i:=1 to Length(s) do
   begin
      c:=UpCase(s[i]);
      If (c>='A') and (c<='Z') then
         p[Ord(c)]:=p[Ord(c)]+1
   end;
   For i:=Low(p) to High(p) do
      Writeln(Char(i),' - ',p[i]);
   Readln;
end.