Определить количество гласных букв, количество согласных и количество цифр

uses crt;
const nmax=50;
      lalf: set of char=['a'..'z','A'..'Z'];
      lg:   set of char=['e','y','u','i','o','a','E','Y','U','I','O','A'];
      z:    set of char=['0'..'9'];
var  a: array [1..nmax] of char;
     ls: set of char;
     i,n,kg,ks,kz: byte;
begin
repeat
write('Укажите размер массива, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
ls:=lalf-lg;
writeln('Заполняем массив:');
for i:=1 to n do
    begin
    write('a[',i,']='); readln(a[i]);
    end;
writeln('Дан массив:');
for i:=1 to n do
    begin
    write(a[i]:2);
    if a[i] in lg then inc(kg) else
       if a[i] in ls then inc(ks) else
          if a[i] in z then inc(kz);
    end;
writeln;
writeln('Количество согласных: ',ks);
writeln('Количество   гласных: ',kg);
writeln('Количество цифр: ',kz);
end.

uses crt;
const nmax=50;
      lalf: set of char=['a'..'z','A'..'Z'];                               //множесто латинских букв
      lg:   set of char=['e','y','u','i','o','a','E','Y','U','I','O','A']; //множесто латинских гласных
      z:    set of char=['0'..'9'];                                        //множесто цифр
var  a: array [1..nmax] of char;
     ls: set of char;
     i,n,kg,ks,kz: byte;
begin
repeat                                                               //в цикле с постусловием
write('Укажите размер массива, не более ',nmax,', n='); readln(n);   //запрашиваем размер массива
until n in [1..nmax];
ls:=lalf-lg;                                                         //вычисляем множество согласных
writeln('Заполняем массив:');
for i:=1 to n do                                                     //в цикле с параметром
    begin
    write('a[',i,']='); readln(a[i]);                                //запрашиаем и считываем элементы массива
    end;
writeln('Дан массив:');
for i:=1 to n do                                                     //в цикле с параметром перебираем элементы массива
    begin
    write(a[i]:2);                                                   //выводим на экран
    if a[i] in lg then inc(kg) else                                  //если элемент массива входит в множество гласных, увеличиваем счетчик гласных
       if a[i] in ls then inc(ks) else                               //если элемент массива входит в множество согласных, увеличиваем счетчик согласных
          if a[i] in z then inc(kz);                                 //если элемент массива входит в множество цифр, увеличиваем счетчик цифр
    end;
writeln;
writeln('Количество согласных: ',ks);                                //выводим ответ
writeln('Количество   гласных: ',kg);
writeln('Количество цифр: ',kz);
end.