Turbo Pascal( jumlah vokal)

nah sobbb,,,,
ini selanjutnya sebuah program yang sangat bermanfaat untuk dasar sebagai belajar menjadi programer,,,
ini adalah pemprograman pascal menghitung jumlah vocal yang ada pada kalimat yang kalian inputkan,,,,
silakan kalian cermati dan kalian analisis baik2,,,
semoga bermanfaat sobb,,,,,


uses wincrt;
var
    x :string;
   jvc:integer;
   voc:string;
   i,jum:integer;
begin
   writeln('masukan kalimat : ');readln(x);
   jum:=length(x);
   for i:=1 to jum do


   begin
        if upcase (x[i]) in ['A','I','U','E','O'] then
        jvc:=jvc+1;
   end;
   for i:=1 to jum do
   begin
        if upcase (x[i]) in ['A','I','U','E','O'] then
        voc[i]:=x[i];
   end;
   writeln('jumlah vocal = ',jvc);
   writeln('Yaitu : ');
   for i:=1 to jum do
   begin
   write(voc[i]);
   end;
   readln;
   donewincrt;
end.



inget komentnya  ya,,,
thanks sobb....