Задача

[drinian]

Помогите с задачкой , Условия задачи :
" Задана задана матрица N*M целых чисел . Определить , будет ли в матрице хотя бы один столбец полностью состоящий из одинаковых чисел . В программе должна быть подпрограмма , получающая номер столбца , и определяющая будет ли этот столбец полностью состоять из нулей .
Матрица задана в текстовом файле : сначала размерность матрицы n и m , далее в n строках заданы через пробел по m элементов матрицы A . "

Заранее , благодарю ^_^

[badnum23]

program Project1;

const
  MAX_N = 100;
  MAX_M = 100;

var
  a: array [1..MAX_N, 1..MAX_M] of Integer;
  n,m,i: Integer;
  t: Boolean;

procedure init();
var
  f: Text;
  i,j: Integer;
begin
  assign(f, 'input.txt');
  reset(f);
  readLn(f,n,m);
  for i := 1 to N do
  begin
    for j := 1 to M do
      read(f, a[i,j]);
    readLn(f);
  end;
  close(f);
end;

function isRight(x: Integer): Boolean;
var
  t: Boolean;
  i: Integer;
begin
  i := 1;
  t := true;
  while (i <= m) and t do
  begin
    t := a[x, i] = 0;
    inc(i);
  end;
  isRight := t;
end;

begin
  init();
  t := true;
  i := 1;
  while (i <= n) and t do
  begin
    t := isRight(i);
    Inc(i);
  end;
  if t then
    writeLn('Хотя бы один столбец полностью состоит из нулей');
end.

[drinian]

Благодарю , badnum23 ^_^