Найти в тексте все слова с наименьшим количеством гласных букв русского алфавита. - Turbo Pascal - Ответ 2782491

uses crt;
const sg='уеёыаоэяиюУЕЁЫАОЭЯИЮ';
var s,sl,sn: string;
    i,j,k,kmin: byte;
    
begin
write('s=');
readln(s);
s:=s+' '; sl:=''; sn:='';
kmin:=length(s);
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          k:=0;
          for j:=1 to length(sl) do
              if pos(sl[j],sg)<>0 then inc(k);
          if k<kmin then kmin:=k;
          sl:='';
          end;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          k:=0;
          for j:=1 to length(sl) do
              if pos(sl[j],sg)<>0 then inc(k);
          if k=kmin then sn:=sn+sl+' ';
          sl:='';
          end;
writeln(sn);
end.