Генератор комбинаций символов в матрице.(Pascal).

[tenzik23]

Дана матрица состоящая из русского алфавита, помогите пожалуйста сделать программу которая генерила бы различные комбинации алфавита(тобиш в разном порядке) и выводила их в txt файл.

[Stilet]

Показывай код где матрица дается.

[tenzik23]

const abc: array[1..7,1..5] of char = (('*','Ў','ў','Ј','¤'),
('Ґ','¦','§','Ё','Є'),
('«','¬','*','®','Ї'),
('а','б','в','г','д'),
('е','ж','з','и','й'),
('к','л','м','н','о'),
('п','.',',',':',' '));
Вот матрица
Программа должна генерить 2 таблицы алфавита рядом через "|" и чтобы в файле не перезаписывалась старая таблица, а оставалась там.

[tenzik23]

и ¤ * § * § | и ¤ * § * §
Ў , е о к о | Ў , е о к о
г Ј м б Ї б | г Ј м б Ї б
а л Ґ Є в к | а л Ґ Є в Є
. н ў ¬ п ¬ | й ® ж д « д
. н ў ¬ п ¬ | : з Ё ¦ Ё
: з Ё ¦ Ё | й ® ж д « д

Вот как то так

[type_Oleg]

Вот только непонятно, почему именно матрица, почему не просто 1-мерный массив.
Про то, как использовать эту двумерность, ничего не сказано. То есть, про столбцы, строки...
И еще - судя по примеру, в этих сгенерировааных комбинациях буквы могут повторяться. Так ?

[Stilet]

Предпологаю так:

var s,s2:String; i,j:integer;
...
assign(f,'file.txt'); rewrite(f);
for i:=1 to 7 do begin
 s:=''; s2:='';
 for j:=1 to 6 do begin
  s:=s+' '+abc[random(7)+1,random(5)+1];
  s2:=s2+' '+abc[random(7)+1,random(5)+1];
 end; writeln(f,s,'|',s2);
end;
close(f);

[type_Oleg]

.. и Randomize куда-нибудь вне цикла.
Для " ослучайнивания "

[tenzik23]

Спасибо!!! все работает как надо! только есть одно но, что когда запускаешь он генерит одну пару таблиц, а нужно что бы генерил сразу несколько.

[Stilet]

Согласен. Можно.

[tenzik23]

Не могли бы вы подсказать как?