Элементы заданной матрицы A(N,N) переписывать построчно в одномерный массив B до тех пор, пока не встретится нулевой элемент — Pascal(Паскаль)

uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  b:array [1..n*n]of integer;
  i,j,max:integer;
  fl:boolean;
begin
  clrscr;
  max:=0;
  fl:=true;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      if (a[i,j]<>0) and fl then
      begin
        inc(max);
        b[max]:=a[i,j]
      end
      else
        fl:=false;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {âûâîäèì ìàññèâ}
  writeln('Ïîëó÷åííûé ìàññèâ:');
  write('[ ');
  for i:=1 to max do
    write(b[i],' ');
  writeln(']')
end.