Определить, чередуются ли знаки элементов на главной диагонали матрицы

uses crt;
var a:array[1..100,1..100] of integer;
    n,m,i, c, j:integer; {размеры матрицы, счетчики циклов}
    mn:set of byte; {множество номеров строк по условию }
    flag:boolean; {флаг истинности условия}
begin
repeat  {ввод размеров матриц с проверкой диапазона}
writeln('Введите количество строк и столбцов матрицы от 2 до 100');
readln(n,m);
until(n in [2..100])and(m in [2..100]);
writeln('Введите элементы матрицы построчно,');{ввод элементов матрицы }
writeln('в том числе строки с чередованием положительных и отрицательных. Элементы должны быть целыми числами c разрядностью не более 10');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица'); {вывод матрицы}
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
mn:=[];
c:=0;
for j:=1 to n do 
 begin
  flag:=true; 
  while(j=i)and flag do
  if a[i,j]*a[i+1,j+1]>=0     
  then flag:=false  
  else j:=j+1;
  c:=c+1; 
 end;
 mn:=mn+[C];
if mn=[] then write('Нет знакочередующейся строки') 
else
  writeln('Знакочередующаяся строка есть');
end.

const
    NMAX = 100;
    ANSWER: Array[Boolean] Of String = ('Нет знакочередующейся строки', 'Знакочередующаяся строка есть');
var
    ar: Array[1..NMAX, 1..NMAX] Of ShortInt;
    n, i, j: 1..NMAX;
    flag: Boolean;
begin
    repeat
        Write('Введите размерность матрицы (1..100): ');
        ReadLn(n);
    until (n in [1..100]); //главная и побочная диагональ - свойство только квадратной матрицы
    Randomize;
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    i := 2;
    flag := False;
    while ((i <= n) And (Not flag)) do
    begin
        flag:= (ar[i, i]*ar[i - 1, i - 1] < 0);
        Inc(i);
    end;
    WriteLn(ANSWER[flag]);
end.