Huruf Vokal

uses
    wincrt;
var
    huruf       :       char;
    YT          :       char;
begin
     YT :='Y';
     repeat
     clrscr;              
     write('Input sebuah karakter = '); readln(huruf);
     write('Termasuk '); case huruf of
                              'a'   :   writeln('HURUF VOKAL');
                              'i'   :   writeln('HURUF VOKAL');
                              'u'   :   writeln('HURUF VOKAL');
     

                              'e'   :   writeln('HURUF VOKAL');
                              'o'   :   writeln('HURUF VOKAL');
                              'A'   :   writeln('HURUF VOKAL');
                              'I'   :   writeln('HURUF VOKAL');
                              'U'   :   writeln('HURUF VOKAL');
                              'E'   :   writeln('HURUF VOKAL');
                              'O'   :   writeln('HURUF VOKAL');
                              else writeln('HURUF KONSONAN');
                         end;
     write('Ingin mengulang   : '); readln(YT);
     until upcase (YT) ='T'
end.