Для каждого слова заданного предложения указать долю согласных

program 7pr;
uses crt;
var st1,pr:string;
    sim:string[1];
    i:integer;
    sogl:set of char;
begin
pr:=' ';
sogl:=['б'..'д','ж'..'з','й'..'н','п'..'т','х'..'щ'];
writeln('Введите предложение');
readln(st1);
n:=length(st1);
s:=0;
for i:=1 to n do begin
sim:=copy(st1,i,1); 
if sim=sogl then s:=s+1;

Var s,s1,max:string;
    i,k,max1:byte;
Begin
    write('Введите строку: ');readln(s);
    k:=0;max:='';s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      k:=0;
      For i:=1 to Length(s1) do
       if s1[i]='A' then inc(k);
      if k>max1 then 
      Begin
        max1:=k;
        max:=s1;
      End;
    End;
    writeln('Слово  c max долей гласных "A" = ',max,' в ней гласных = ',max1);
    readln;
End.

const sg:string='qwrtpsdfghjklzxcvbnm';

 For i:=1 to Length(s1) do
       if pos(s1[i],sg)>0 then inc(k);

writeln('Ñëîâî  c max äîëåé ñîãëàñíûõ  = ',max,' â íåé ñîãëàñíûõ = ',max1);