1 Program Pzim ;
 2 var
 3 {cria uma matriz que irá armazenar as vogais} 
 4 vogais: array [1..5] of char;
 5 {cria uma matriz que irá armazenar as consoantes} 
 6 consoantes: array [1..21] of char;
 7 {variável responsável por armazenar a palavra digitada pelo usuário}
 8 palavra: string;
 9 {variáveis do tipo inteiro}
10 Qtvogais, Qtconsoantes, tamanho, cont: integer;
11 contV, contC, TotalVog, TotalCon: integer;
12 
13 Begin
14    {atribui a matriz vogais da posição 1 até 5 as vogais}
15    vogais[1]:='a'; vogais[2]:='e';vogais[3]:='i';vogais[4]:='o';vogais[5]:='u';
16    {atribui a matriz consoantes da posição 1 até 21 as consoantes}
17    consoantes[1]:='b'; consoantes[2]:='c'; consoantes[3]:='d'; consoantes[4]:='f';  
18    consoantes[5]:='g'; consoantes[6]:='h'; consoantes[7]:='j'; consoantes[8]:='k';
19    consoantes[9]:='l'; consoantes[10]:='m'; consoantes[11]:='n'; consoantes[12]:='p';
20    consoantes[13]:='q'; consoantes[14]:='r'; consoantes[15]:='s'; consoantes[16]:='t';   
21    consoantes[17]:='v'; consoantes[18]:='x'; consoantes[19]:='y'; consoantes[20]:='w'; 
22    consoantes[21]:='z';
23    {escreve na tela}   
24    write('Digite uma palavra: ');
25    {espera que o usuário digite algo e este valor seja armazenado na variável palavra}
26    readln(palavra);
27    {pega o tamanho desta palavra e armazena na variável tamanho}
28    tamanho:=length(palavra);
29    {do valor inicial de cont, que é 1 até o valor de tamanho, faça}
30    for cont:=1 to tamanho do
31    begin
32       {do valor inicial de contV, que é 1 até 5, faça}
33       for contV:=1 to 5 do
34       begin
35          {pega a palavra na posição referênte ao valor do cont e compara
36          com a matriz vogais na posição de contV}
37          if(palavra[cont]=vogais[contV]) then
38             {se for vogal, TotalVog é incrementado}
39             TotalVog:=TotalVog+1;   
40       end;
41       {do valor inicial de contC, que é 1 até 21, faça}
42       for contC:=1 to 21 do
43       begin
44          {pega a palavra na posição referênte ao valor do cont e compara
45          com a matriz consoantes na posição de contC}
46          if(palavra[cont]=consoantes[contC]) then
47             {se for consoante, TotalCon é incrementado}
48             TotalCon:=TotalCon+1;   
49       end;
50    end;
51    {exibe o resultado}
52    writeln('Total de caracteres: ',tamanho);
53    writeln(TotalVog,' vogais.');
54    writeln(TotalCon,' consoantes.');
55 End.