matika diskrit

program Cekvokal;
uses WinCrt;
Const vokal = ['A','a','I','i','U','u','E','e','O'];
Var tampung : string; Huruf : Char;
begin;
Clrscr;
Tampung :=' ';
        Repeat
        Write('ketik huruf <tanpa ENTER> Esc selesai : ');
        Huruf := Readkey;
              If Huruf in vokal then
              writeln('Vokal')
            Else
              writeln('BUKAN VOKAL');
              Tampung := Tampung + Huruf;
              Until Huruf = #27;
              writeln('ketikan : ',tampung);
              End.