Обнулить столбцы матрицы, в которых есть одинаковые элементы

const
  n=3;
var
  a:array[1..n,1..n] of integer;
  b,c,d:integer;
begin
  {Вводим массив}
  for b:=1 to n do
    for c:=1 to n do
      begin
        write('Введите элементы [',b,',',c,']: ');
        readln(a[b,c]);
      end;
  {Выводим массив}
  writeln('Исходный массив: ');
  for b:=1 to n do
    begin
      for c:=1 to n do write(a[c,b]:4);
      writeln;
    end;
  {Выполняем задание}
  for b:=1 to n do
    begin
      for c:=1 to n-1 do
        begin
          d:=c+1;
          while (a[c,b]<>a[b,d]) and (d<n) do inc(d);
          if d<n then break;
        end;
      if d<n then
        for c:=1 to n do a[c,b]:=0;
    end;
  {Выводим массив}
  writeln('Преобразованный массив: ');
  for b:=1 to n do
    begin
      for c:=1 to n do write(a[c,b]:4);
      writeln;
    end;
  readln;
end.