Выход за пределы массива

[maverick231]

Программа должна находить последнюю строку матрицы, в которой все символы одинаковы.
Проблема в том, что она выходит за пределы как строк, так и столбцов. Помогите, пожалуйста, разобраться в чём может быть проблема.

program 1212;

{$APPTYPE CONSOLE}
{$R+}
uses SysUtils;
var
 A: array[1..5,1..5] of Char;
 dat,res: textfile;
 ans,err, n, i, j, m, cnt: integer;
 flag: boolean;
begin
  assignfile(dat,paramstr(1));
  assignfile(res,paramstr(2));
  cnt:=0;err:=0;ans:=0;
  try//1
   reset(dat);
    try//2
      try//3
       readln(dat,n); readln(dat,m);
       for i := 1 to n do
         begin
          for j := 1 to m do
           read(dat,a[i][j]);
           readln(dat);
         end;
       i := n; flag:=false;
       while (n >= i)  and ( flag=false)  do
        begin
         j:=1; cnt:=1;
         while (A[i][j] = A[i][j+1]) and (j < m) do
          begin
           inc(cnt);
           inc(j);
           end;
         if (cnt=m) then
          begin
          ans:=i;
          flag:=true;
          end;
          i:=i-1;
        end;
      except err:=2
      end; //3
    finally closefile(dat)
    end; //2
  except err:=1
  end; //1
  if err>0 then
   begin
     case err of
     1: writeln('Не удалось открыть файл с входными данными');
     2: writeln('Некорректные данные в файле');
     end;
   writeln('Enter...');
   exit;
   end;
 try//4
   try//5
   rewrite(res);
      try//6
      writeln(res,'A(',n,'x',m,')');
      for i:=1 to n do
        begin
         for j:=1 to m do write(res, a[i,j],' ');
         writeln(res);
        end;
      if ans<>0 then writeln(res,ans,' - Номер строки')
      else
       writeln(res,'Строк с одинаковыми элементами - нет');
     except err:=4
     end;//6
   finally closefile(res)
   end;//5
 except err:=3
 end; //4
  if err>0 then
   begin
     case err of
     3: writeln('Не удалось создать выходной файл');
     4: writeln('Не удалось вывести выходные данные');
     end;
   writeln('Enter...');
   exit;
   end;
 writeln('OK');
end.

[Arigato]

i := n;
while (n >= i)  and ( flag=false)  do
begin
  ...
  i:=i-1;
end;

Может в условие поставить i>0?

[maverick231]

Не помогает

[evg_m]

readln(dat,n); readln(dat,m);
if n>5 then ... ; // очень много строк(столбцов)
if m>5 then ... ; //очень много столбцов(строк)

 while (A[i][j] = A[i][j+1]) and (j < m) do

m=5 j=m ???