Поиск в квадратной матрице (Delphi)

[Prohoziy]

Пусть даны натуральное число n и вещественная квадратная
матрица порядка n. Постройте последовательность b[1],...b[n]
из нулей и единиц в которой b[i]=1 тогда и только тогда, когда
в i-ой строке матрицы есть хотя бы один отрицательный элемент

На долю секунды вылетает ошибка, и программа закрывается. Не могу понять в чем ошибка. Собственно, код:

{Пусть даны натуральное число n и вещественная квадратная
матрица порядка n. Постройте последовательность b[1],...b[n]
из нулей и единиц в которой b[i]=1 тогда и только тогда, когда
в i-ой строке матрицы есть хотя бы один отрицательный элемент.}
program p85_n34;

{$APPTYPE CONSOLE}

 {Подключаем модули}
uses
  SysUtils,
  Windows;

{Описываем переменные}

var
A : array of array of real;
n,i,j : integer;
ok : boolean;

begin
 {Подключаем русский язык}
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  ok:=false;
  while not ok do
    begin
      writeln ('Введите размер матрицы');
      read (n);
      if n>1 then
        ok:=true
      else
        writeln ('ошибка');
    end;

  setlength (A,n);
  write (length(A));

  writeln('Введите саму матрицу');

  for i:=1 to n do
    for j:=1 to n do
      read(A[i,j]);

  writeln('Полученная последовательность ');  
  For i:=1 to n do
    begin
      j:=1;
      While (A[i,j]>=0) and (j<=n) do
        begin
          if (A[i,j]>=0)
            then
              write (0)
            else
              write (1);
            j:=j+1;
        end;

    end;

    readln;
    readln;
end.

[BDA]

setlength(A,n,n);

И нумерация элементов от 0 до n-1.
Ну и вывод 0 и 1 не нравится (не по условию задачи).

[Prohoziy]

поправил, все равно ошибка идет

{Пусть даны натуральное число n и вещественная квадратная
матрица порядка n. Постройте последовательность b[1],...b[n]
из нулей и единиц в которой b[i]=1 тогда и только тогда, когда
в i-ой строке матрицы есть хотя бы один отрицательный элемент.}
program p85_n34;

{$APPTYPE CONSOLE}

 {Подключаем модули}
uses
  SysUtils,
  Windows;

{Описываем переменные}

var
A : array of array of real;
n,i,j : integer;
ok : boolean;

begin
 {Подключаем русский язык}
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  ok:=false;
  while not ok do
    begin
      writeln ('Введите размер матрицы');
      read (n);
      if n>1 then
        ok:=true
      else
        writeln ('ошибка');
    end;
  n:=n-1;
  setlength (A,n,n);
  write (length(A));

  writeln('Введите саму матрицу');

  for i:=1 to n do
  begin
    for j:=1 to n do
      read(A[i,j]);
 end;
  writeln('Полученная последовательность ');

  for i:=1 to n do

    begin
  ok:=false;
      While (A[i,j]>=0) and (j<=n) do
        begin
          if (A[i,j]>=0)
            then
              ok:=false
            else
              ok:=true;
            j:=j+1;
        end;
    if ok=true
    then
      write (1)
    else
      write (0);
    end;

    readln;
    readln;
end.

[BDA]

Так вы только сделали ранг матрицы на единицу меньше, а индексы все также от 1 до n (теперь нового).