Перебрать все возможные комбинации - Pascal ABC

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

Доброго времени суток. Столкнулся с такой задачей и не знаю, как подступится. Опишу своими словами. Есть четыре столбика слов. В первом столбике 4-е слова, а во всех остальных по 3-и слова. Задача заключается в следующем. Надо взять одно слово из первого столбика за ним поставить из второго потом из третьего и из четвертого. По сути, перебрать все возможные комбинации. Не знаю, с какой стороны подступится. Помогите.

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

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

const s1:array[1..4] of string=('один_один','один_два','один_три','один_четыре');
      s2:array[1..3] of string=('два_один','два_два','два_три');
      s3:array[1..3] of string=('три_один','три_два','три_три');
      s4:array[1..3] of string=('четыре_один','четыре_два','четыре_три');
var i,j,k,n:byte;
begin
for i:=1 to 4 do
for j:=1 to 3 do
for k:=1 to 3 do
for n:=1 to 3 do
writeln(s1[i],' ',s2[j],' ',s3[k],' ',s4[n]);
end.

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

Данный код написан на языке Pascal ABC и выполняет перебор всех возможных комбинаций из четырех строк. В начале кода объявлены четыре массива строк: s1, s2, s3 и s4. Каждый из них содержит четыре элемента, соответствующие комбинациям из четырех строк. Затем объявлены четыре переменные типа byte: i, j, k и n. Они будут использоваться для перебора чисел от 1 до 3. Далее идет цикл for, который выполняется четыре раза (от i=1 до i=4). Внутри этого цикла также идет еще четыре вложенных цикла for, которые также выполняются четыре раза (от j=1 до j=3, от k=1 до k=3 и от n=1 до n=3). Внутри этих вложенных циклов происходит вывод на экран комбинаций из четырех строк, соответствующих текущим значениям переменных i, j, k и n. Таким образом, данный код выводит на экран все возможные комбинации из четырех строк, используя заданные массивы строк и переменные для перебора чисел.