Помогите или натолкните на мысль.

[alex2008ean]

Столкнулся вот с такой броблемой:

у меня есть массив 3х5. В начале он нулевой:
0 0 0 0 0
0 0 0 0 0
0 0 0 0 0
потом я вношу 1 в каждый столбец (только одно значение 1 в каждом столбце) в зависимости от условий и в итоге, например, имею:
0 1 0 0 0
1 0 1 1 0
0 0 0 0 1

Суть в чем - каждому елементу массива соответствует своя фраза (текстовая строка), и вот если елемент массива равняеться 1 значит соответствующие данные нужно вывести в файл, если 0 - пропускать.
Данные должно выводить последовательно по столбцам, т.е. 1-й столбец - 1-я фраза, 2-й столбей- 2-я, 3-й - 3-я и так далее.

Дошел до кодированной еденицами матрицы, но как вывести эти данные в файл не знаю.

З.Ы. Если поможете, буду очень благодарен.

[Serge_Bliznykov]

заполнение, открытие выходного файла - доделаете...
концепт такой:

const n= 4;
 MyPhrases :array[1..N] of String[20] = ('фраза 1','фраза 2','фраза 3','фраза 4');

var
  i,j : integer;
  Mas : array[1..n, 1..n] of integer;
begin
  for i:=1 to n do 
    for j:=1 to n do
      if Mas[i,j]=1 then WriteLn( MyPhrases[j] );
end.

[alex2008ean]

Сообщение от Serge_Bliznykov

заполнение, открытие выходного файла - доделаете...
концепт такой:

const n= 4;
 MyPhrases :array[1..N] of String[20] = ('фраза 1','фраза 2','фраза 3','фраза 4');

var
  i,j : integer;
  Mas : array[1..n, 1..n] of integer;
begin
  for i:=1 to n do 
    for j:=1 to n do
      if Mas[i,j]=1 then WriteLn( MyPhrases[j] );
end.

Огромное спасибо!