Problem in Pascal!

[Sofa5000]

Ich habe ein neue Aufgabenstellung zum lösen!

Es soll ein Text vom Benutzer eingegeben werden (Abbruch mit #). Anschließend wird die Gesamtlänge des Textes sowie die Anzahl der jeweiligen Vokale ausgegeben.

Wie kann ich das machen?

Ich habe mal so angefangen

Delphi-Quellcode:

var ch:char;
    anz:integer;
begin
     i:=-1;
     repeat
           ch:=readkey;
           write(ch);
           anz:=anz+1;
     until (ch = '#');
     writeln;
     writeln('Die Länge des Textes beträgt ' ,anz , ' Zeichen');
end.

Aber es soll zusätzlich noch ausgegeben werden das es 8 A waren und 7 X und so weiter! wie kann ich das machen?

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]