удалить из матрицы столбцы содержащие одинаковые элементы

[Вольця]

Матрица размерностью NxM заполняется генератором случайных чисел.Удалить столбцы, содержащие одинаковые элементы.Вывести исходную и преобразованную матрицы.
Пример работы программы:
Исходная матрица:
2 3 5 8
2 4 3 7
1 6 0 9

Преобразованная матрица
2 8
2 7
1 9

[Stilet]

Допустим так:

const n=4;m=5;
var a:array[1..n,1..m] of integer; i,j,k,l:integer;b:array[1..n] of boolean;
begin
 for i:=1 to n do b[i]:=true;
 for i:=1 to n do begin
  for j:=1 to m do begin
   a[i,j]:=random(10);  write(a[i,j]:10);
   if b[j] then
    for k:=i-1 downto 1 do
     if a[k,j]=a[i,j] then
      begin b[j]:=false; break;end;
  end; writeln;
 end;  writeln;

 for i:=1 to n do begin
  for j:=1 to m do begin
   if b[j] then write(a[i,j]:10);
  end; writeln;
 end;

 readln
end.

[Вольця]

Спасибо большое)