Вводится слово, меняем гласные на 1, согласные на 0, полученное число переводим в шестнадцатеричную систему

const
  gl = ['e', 'y', 'u', 'i', 'o', 'a'];
  a: array [1..16] of string = ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
  figure: string[16] = '0123456789ABCDEF';
 
var
  s1, s, temp: string; 
  i, q: integer;
 
begin
  write('Ввести строку: ');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in gl then
      s[i] := '1'
    else
      s[i] := '0';
  {Добавление незначащих цифр}
  while length(s) mod 4 <> 0  do
    Insert('0', s, 1);
  {Обработка строки}
  while length(s) <> 0 do
  begin
    temp := copy(s, length(s) - 3, length(s));
    for i := 1 to 16 do
      if temp = a[i] then
      begin
        s1 := figure[i] + s1;
        delete(s, length(s) - 3, 4)
      end;
  end;
  writeln(s1);
end.

const
  gl = ['e', 'y', 'u', 'i', 'o', 'a'];
  d: string[16] = '0123456789ABCDEF';
 
var
  s, hex: string;
  i, k: integer;
 
begin
  write('Введите слово: ');
  readln(s);
  hex := '';
  k := 0;
  for i := 1 to length(s) do
    begin
      k := k shl 1;
      if s[i] in gl then k := k or 1;
      if (length(s) - i) mod 4 = 0
        then begin
          hex := hex + d[k + 1];
          k := 0
        end
    end;
  writeln('Hex: ', hex)
end.