Дан двумерный массив целых чисел размером m*n . найти количество столбцов данного массива, все элементы которых различны

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество колонок в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-9,9);   a.println(3); writeln(3*a.colcount*'-');   write('колонок, где все элементы различны, ',           a.cols.where(c-> c.distinct.count=m).count); end. пример количество строк в массиве: 6 количество колонок в массиве: 7 *** исходный массив [6,7] ***   -9  6 -1  5  1 -9 -6   -2  9  1 -7 -6 -5 -1   4 -7  2  1  3  1  2   0  3  8  5 -6  8 -9   -2 -2  8 -4 -7  0  8   -2  1  1 -8 -9  1 -4 колонок, где все элементы различны, 2

Алгоритм решения следующий: сначала считывается введенное слово в переменную. далее, в цикле от начала слова и до его конца проверяется, является ли текущая буква, равной искомой, то есть букве "а". если такая буква найдена, то выводится её позиция в слове. а теперь комментарий по каждой из строчек кода. // блок объявления переменных var a: string;   var i: integer; // начало программыbegin// ввод словаwriteln('введите слово'); // считывание словаread(a); // цикл от 1 до длины считанного слова for i: =1 to length(a) do begin// условие на то, является ли текущая буква заданной if (a[i]='а') then begin// если является, вывод её позиции на экран writeln('найдена буква “а”, ее позиция: ' , i); // и прерывание дальнейшего цикла, выход из него break; // завершение блока "if" end; //  завершение циклаend; // завершение программы end.