Вывести все 4-х символьные сочетания, состоящие из символов заданной строки

const 
   BukvyGlas = 'aeuioy';
   BukvySoglas = 'bcdfg и т.д.';
   Chetnye = '02468';
   Nechet = '13579';
 
function GetChars(i:integer) : string;
var k : integer;
begin
  Write(i,'-й символ – буква:');  Readln(k);
  if k=1 then begin
    Write('гласная: ');  Readln(k);
    if k=1 then GetChars := BukvyGlas
    else GetChars := BukvySoglas
  end
  else begin {цифра}
    Write('четная: ');  Readln(k);
    if k=1 then GetChars := Chetnye
    else GetChars := Nechet
  end
end;  
  
 
var
  s : array[1..4] of string;
  i, i1,i2,i3,i4 : integer;
begin
  for i:=1 to 4 do  s[i] := GetChars(i);
 
  {вот циклы формирования сочетания}
  for i1:=1 to Length(s[1]) do
    for i2:=1 to Length(s[2]) do
      for i3:=1 to Length(s[3]) do
         for i4:=1 to Length(s[4]) do
   WriteLn(s[1][i1],s[2][i2],s[3][i3],s[4][i4]);
end/

function isGoodSymbol(ch : char; isLetter, isKey2 : boolean ) : boolean;
const
   BukvyGlas = ['a','e','u','i','o','y','A','E','U','I','O','Y'];
   Chetnye = ['0','2','4','6','8'];
begin
  isGoodSymbol := false;
  if isLetter then begin
     if not (ch in ['a'..'z','A'..'Z']) then Exit;
     if isKey2
          then isGoodSymbol := ch in BukvyGlas
          else isGoodSymbol := not( ch in BukvyGlas )
  end
  else begin
     if not (ch in ['0'..'9']) then Exit;
     if isKey2
          then isGoodSymbol := ch in Chetnye
          else isGoodSymbol := not( ch in Chetnye )
  end
 
end;
 
 
var
  s, s0 : string;
  key : array[1..4,1..2] of boolean;
  i, j, k : integer;
  isCharFound : boolean;
begin
  WriteLn('Введите исходную строку: ');
  {Readln(s); }
    {для отладки }
       s := 'ab1e2c03ik5';
       key[1,1] := true;  key[1,2] := true;
       key[2,1] := false; key[2,2] := true;
       key[3,1] := true;  key[3,2] := false;
       key[4,1] := false;  key[4,2] := false;
       
(*  for i:=1 to 4 do begin
    Write(i,'-й символ – буква:');  Readln(k);
    key[i,1] := (k=1);
    if key[i,1] then begin
      Write('гласная: ');  Readln(k);
      key[i,2] := (k=1);
    end
    else begin {цифра}
      Write('четная: ');  Readln(k);
      key[i,2] := (k=1);
    end
  end; *)
  
  isCharFound := true;
  while (Length(s)>0) and isCharFound do begin
     s0 := '';
     for i:=1 to 4 do begin
       j:=1;
       while (j<=Length(s)) and Not isGoodSymbol(s[j], key[i,1], key[i,2]) do Inc(j);
       if (j>Length(s)) then begin
          isCharFound := false;
          Break;
       end
       else begin
         s0 := s0 + s[j];
         Delete(s, j, 1);
       end;
     end;
     if isCharFound then WriteLn(s0);
  end;
  
  WriteLn('------------');
  WriteLn(' ostatok  = ',s);
  
end.