program policz;
uses crt;
var A:array[1..3] of integer;
slowo:string;
i:integer;
begin
  for i:=1 to 3 do
    A[i]:=0;
  writeln('Podaj tekst');
  read(slowo);

  for i:= 0 to length(slowo) do
  begin
    case slowo[i] of
      'a': begin
        slowo[i] := 'A';
        A[1]:=A[1]+1;
        end;
      'e': begin
        slowo[i] := 'E';
        A[2] :=  A[2]+1;
        end;
      'i': begin
        slowo[i] := 'I';
        A[3] := A[3]+1;
        end;
    end;
  end;

  writeln('a:',A[1]);
  writeln('e:',A[2]);
  writeln('i:',A[3]);
  writeln(slowo);

  readkey;
end.