Определить все возможные комбинации кода - Pascal

Формулировка задачи:

Код содержит буквы a,b,d,e,z,i,o,c,t. Код состоит из 4 букв: 1 буква - гласная, 2 буква - b, 3 буква - согласная, 4 буква - любая гласная не совпадающая с первой. Определить все комбинации.

Решение задачи: «Определить все возможные комбинации кода»

Листинг программы

const v: array[1..4] of char = ('a', 'e', 'i', 'o');
      c: array[1..5] of char = ('b', 'c', 'd', 't', 'z');
var i, j, k: integer;
begin
  for i := 1 to 4 do
    for j := 1 to 5 do
      for k := 1 to 4 do
        if i <> k then write(v[i], c[1], c[j], v[k], ' ');
  readln
end.

Объяснение кода листинга программы

Объявляются две константные переменные:
- v: массив символов длиной 4, содержащий значения 'a', 'e', 'i' и 'o'
- c: массив символов длиной 5, содержащий значения 'b', 'c', 'd', 't' и 'z'
Объявляются три переменные типа integer:
- i
- j
- k
Начинается цикл for от 1 до 4 (включительно) для переменной i, затем еще один цикл от 1 до 5 (включительно) для переменной j.
Затем еще один цикл от 1 до 4 (включительно) для переменной k.
Внутри вложенных циклов проверяется условие if i ≠ k, и если оно выполняется, выводится комбинация символов, состоящая из v[i], c[1], c[j], v[k] и пробела, через write.
В конце программы происходит чтение данных с помощью readln. Этот код создает все возможные комбинации символов из массивов v и c и выводит их, исключая случаи, когда второй и четвертый символы равны.