Подсчёт гласных букв

program zadax;
const
glasn=['а','e','и','о','у','ы','э','ю','я'];
var
i,k,x,b:byte;
a:string;
begin
writeln('Введите предложение');
readln(a);
x:=length(a);
for i:=1 to x do if a[i]= ' ' then  k:=k+1;
b:=k+1;
writeln('в предложении', ' ', b, 'сл.');
readln;
end.

program prg;
var
   s: string;
   prior,current: char;
   counter,i: integer;
   isgl: set of char;
   pr: set of char;
begin
     readln(s);
     prior:=' ';
     for i:=1 to length(s) do begin
         current:=s[i];
         if (ord(prior) >= ord('a')) and (ord(prior) <= ord('z')) then
         if ((current=' ') or (i=length(s))) then counter:=counter+1;
         prior:=current;
     end;
     writeln('Amount of words is ',counter);
 
     isgl:=['a','e','i','j','o','u'];
     pr:=[];
     counter:=0;
 
     writeln('Enter word');
     readln(s);
 
     for i:=1 to length(s)do begin
         if (s[i] in isgl) and not (s[i] in pr)then begin
            counter:=counter+1;
            pr:=pr+[s[i]];
         end;
     end;
     writeln('Amount of vowels is ',counter);
     readln;
end.

Const
  gl=['ё','у','е','а','о','э','я','и','ю','Ё','У','Е','А','О','Э','Я','И','Ю'];
Var
  s: String;
  i,k: integer;
begin
 Writeln('Введите слово:');
 Readln(s);
 For i:=1 to Length(s) do
 If s[i] in gl Then Inc(k);
 Writeln('Кол-во гласных = ',k);
end.