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

[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
...

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

[Sum42]

Lapp
Разбираю ваш код
Вроде где-то не совсем правильно(выводит одинаковые столбцы)

думаю как поправить
------------------------------------------------
добавлено позже
кажется нашел ошибку

for i:=1 to m do if f[j] then
    for j:=i+1 to m do if f[j] then begin
      k:=1;
      while (a[k,i]=a[k,j]) and (k<n) do Inc(k);
      f[j]:=(k<n) or (a[k,i]<>a[k,j]);
      f[i]:=f[i] and f[j]   { < == убрать эту строку, чтобы выводить первую копию }
    end;

в первой строчке f[i] а не f[j]??
поправьте если что...
------------------------------------------------------
продолжаю разбираться дальше...

Сообщение отредактировано: Sum42 - 20.10.2010 21:56

[Lapp]

в первой строчке f[i] а не f[j]?

Да, конечно )). Извиняюсь..


Добавлено через 4 мин.
sum42, а как насчет уточнения условия? Вопрос пропущен мимо ушей? Смотри, твои следующие могут пойти тем же путем, диалог есть диалог..