Двухмерный символьный массив. Вывод различающихся столбцов. Опции

[Sum42]

Здравствуйте, помогите пожалуйста с программой.
----------------------------------------------------------------
Задача:
Напечатать последовательно все различающиеся между собой столбцы символьной матрицы.
Мое решение:

program simv_massive;
uses crt;
const str=30;
      stp=40;
type MyArr=array[1..str,1..stp] of char;
     MyArrSp=array[1..str] of char;
var mas:MyArr;
    x:MyArrSp;
    i,j,k,n,m:byte;
    num:integer;

 procedure Matr_In(var mas1:MyArr; n1,m1:byte);
 var
  i,j:byte;
 begin
  for i:=1 to n1 do
   begin
    for j:=1 to m1 do
    read(mas1[i,j]);
    readln;
   end;
 end;

 procedure Matr_Out(var mas2:MyArr; n2,m2:byte);
 var
  i,j:byte;
 begin
  for i:=1 to n2 do
   begin
    for j:=1 to m2 do
     write(mas2[i,j]:5);
     writeln;
   end;
 end;

begin
 clrscr;
 Write('Введите количество строк:');
 Readln(n);
 Write('Введите количество столбцов:');
 Readln(m);
 Writeln('Заполните массив');
 Matr_In(mas,n,m);
 Writeln('Вы ввели массив');
 Matr_Out(mas,n,m);

 for j:=1 to m do
  begin
   num:=0;
   for i:=1 to n do
    if mas[i,j]=x[i] then
     num:=num+1;

   if num<>n then
    for i:=1 to n do
     writeln(mas[i,j]);

   for i:=1 to n do
    x[i]:=mas[i,j];
  end;
 writeln;
 readkey
end.

Начну сначала, подскажите вывести столбцы последовательно это так

2 5 5
2 5 6
2 5 8

или можно и так

2
2
2

5
5
5
...

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

[Client]

Прогнал прогу Client'а и подумал, что кто-то из нас неверно трактует условие. Клиент, похоже, выводит хотя бы один из повторяющихся столбцов. А я вообще не вывожу столбец, если у него есть дубль. sum42, пожалуйста, уточни условие.

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

а мне надо чуть меньше действий

if flag then mn := mn + [i];

тут добавить еще и [j] в множество.
И еще. Я лишь добавил процедуру и убрал немного кода. Так что почти все тут от автора осталось