Дана целочисленная матрица M x N, элементы которой могут принимать значения от 0 до 100. Найти количество столбцов, равных с последним столбцом данной матрицы.- Pascal(Паскаль)

program kk;

uses crt;

const
  n = 4;
  m = 5;

type
  matr = array [1 .. n, 1 .. m] of integer;

var
  a: matr;
  i, j, kol, tr: integer;

begin
  clrscr;
  writeln('Vvedite matricy ', n, ' na ', m);
  for i := 1 to n do
    for j := 1 to m do
      read(a[i, j]);
  kol := 0;
  for j := 1 to m - 1 do
  begin
    tr := 1;
    for i := 1 to n do
      if a[i, j] <> a[i, m] then
      begin
        tr := 0;
        break;
      end;
    if tr = 1 then
      kol := kol + 1;
  end;
  writeln('kol-vo stolbcev ravnix s poslednim: ', kol);
  readkey;

end.