Вывести (если есть) 4 и более подряд идущие согласные буквы

Function IsSogl (c:char):boolean;
const
   g='БВГДЖЗЙКЛМНПРСТФХСЧШЩЬЪ'+'бвгджзйклмнпрстфхсчшщъь';
var
   p:integer;
Begin
   if pos(c,g)>0 then Result :=true
   else Result:=false;
End;

program Test1;
 
{$APPTYPE CONSOLE}
 
uses
  Windows;
 
const
  g = 'БВГДЖЗЙКЛМНПРСТФХЦЧШЩЬЪбвгджзйклмнпрстфхцчшщъь';
 
var
  I, J : Integer;
  St, StOut : String;
  sof  : set of Char;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  for I := 1 to Length(g) do
    Include(sof, g[I]);
 
  repeat
    St := '';
    J  := 0;
    Readln(St);
    if St <> '' then
    begin
      for I := 1 to Length(St) do
        if St[I] in sof then
        begin
          inc(J);
          StOut := StOut + St[I];
          if J >= 4 then
            Break;
        end
        else
        begin
          J := 0;
          StOut := '';
        end;
      if St <> '' then
        WriteLn(StOut);
    end;
  until St = '';
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, Classes, SysUtils, StrUtils;
 
const
   Vowels = [' ', 'а', 'е', 'и'];   // Добавь сюда ВСЕ гласные буквы и разделители слов
var
   s : string;
   L : TStringList;
   i : Integer;
begin
   //
   readln(s);
   L := TStringList.Create;
   try
   ExtractStrings(Vowels, [], PChar(s), L); // Разбиваем строку по гласным и разделителям
   // В результате все строки в списке - только из подряд идущих согласных букв
   for i := 0 to L.Count - 1 do
      if Length(L[i]) > 3 then // Если здесь больше 3-х символов - печатаем
         writeln(L[i]);
   finally
      FreeAndNil(L);
   end;
end.