Есть ли в целочисленной матрице хотя бы один столбец, содержащий элемент, кратный 13

program Project1;
 
const
  maxrow = 20;
  maxcol = 20;
var
  c: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  n1,n2: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  index1, index2: integer; { Переменные для хранения значения индексов найденого элемента}
  flag: boolean; { Логическая переменная для корректного вывода ответа}
begin
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  Readln(n1);
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  Readln(n2);
  for i:= 1 to n1 do
    for j:= 1 to n2 do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(c[i,j]);     { Ввод значений в двумерный массив.}
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n1 do
    begin
      for j:= 1 to n2 do
        write(c[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  flag:= false;
  for j:= 1 to n2 do    {Циклы для перебора элементов двумерного массива}
    for i:= 1 to n1 do
      begin
        if c[i,j] mod 13 = 0 then  {Условие для поиска элемента кратного 13}
          begin
            index1:= i;         { если условие выполнено, то переменным присваиваются значения текущих индексов}
            index2:= j;
            flag:= true;        { Логической переменной присваивается true. Это
                                  значит, что событие нахождения искомого элемента зарегистрировано }
            break;              { Требуется найти только один столбец, поэтому работу цикла прекращаем}
          end;
      end;
  if flag
  then
    begin
      writeln('Элемент массива, кратный 13 c[',index1,',',index2,'].');
      writeln('Номер столбца, в котором был найден элемент: ',index2);
    end
  else
    writeln('В массиве нет элементов, кратных 13.');
 
  Readln;
end.