program cti;

uses crt;

var Line: string;
    k, l, pocet_samohlasek: integer;
    samA, samE, samI, samO, samU, samY : integer;
    samohlasky: set of char;

BEGIN
  clrscr;
  k := 1;
  samohlasky := ['A','E','I','O','U','Y','a','e','i','o','u','y'];
  pocet_samohlasek := 0;
  samA := 0;
  samE := 0;
  samI := 0;
  samO := 0;
  samU := 0;
  samY := 0;
  writeln('Program vytiskne zvolenou vetu a vedle ni vytiskne hodnotu,');
  writeln('udavajici pocet samohlasek v dane vete.');
  writeln;
  write('Vloz vetu : ');
  readln(Line);
  writeln;
  for l := 1 to length(Line) do
  begin
    if (Line[l] in samohlasky) then pocet_samohlasek := pocet_samohlasek + 1;
    case line[l] of
      'A','a': inc(samA);
      'E','e': inc(samE);
      'I','i': inc(samI);
      'O','o': inc(samO);
      'U','u': inc(samU);
      'Y','y': inc(samY);
    end;
  end;
  writeln('Pocet samohlasek :  celkem : ',pocet_samohlasek);
  writeln('                    A, a   : ',samA);
  writeln('                    E, e   : ',samE);
  writeln('                    I, i   : ',samI);
  writeln('                    O, o   : ',samO);
  writeln('                    U, u   : ',samU);
  writeln('                    Y, y   : ',samY);
  writeln;
  gotoxy(1,24);write('Stiskni ENTER ...');
  readln;
END.