Если в матрице повторяющиеся столбцы, то сжать ее, оставив только столбцы уникальные - PascalABC.NET

const
  n = 10;
 
const
  m = 5;
 
var
  a, d: array[1..n, 1..m] of integer;
  b: array[1..n, 1..m]of char;
  c: array[1..n]of string;
  k: array[1..n]of boolean;
  i, j, i2: integer;
  f: text;
 
begin
  assign(f, 'Filein.txt');
  reset(f);
  for j := 1 to m do 
  begin
    for i := 1 to n do                      //перевернуто читаем (j - столбец, i - строка)
      read(f, a[i, j]);
      readln(f);
  end;
  close(f);
  
  
  for i := 1 to n do
    for j := 1 to m do
      b[i, j] := chr(a[i, j]);
  
  for i := 1 to n do
    for j := 1 to m do          //переводим в строку
      c[i] := c[i] + b[i, j];
      
  
  for i := 1 to n do k[i] := true;
  
  for i := 1 to n do
    for j := i to n do
      if (c[i] = c[j]) and (i <> j) then k[j] := false;      //находим повторяющиеся строки
  
  i2 := 0;
  for i := 1 to n do
    if k[i] = true then
    begin
      i2 := i2 + 1;
      for j := 1 to m do         //если строки не повторяются, то перекидываем их столбцы в другой массив 
        d[i2, j] := a[i, j];
    end;
  
  for j := 1 to m do 
  begin
    for i := 1 to i2 do            //выводим этот массив перевернуто на экран
      write(d[i, j], ' ');writeln; 
  end;
end.