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

uses crt;

var
  a: array [1 .. 100, 1 .. 100] of integer;
  c: array [1 .. 10000] of integer;
  n, i, j, f, g: integer;

begin

  read(n);

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

  f := 1;
  g := 0;

  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if (a[i, j] <> 0) then
      begin
        c[f] := a[i, j];
        f := f + 1;
        g := g + 1;
      end
      else if (a[i, j] = 0) then
      begin
        for f := 1 to g do
        begin
          write(c[f], ' ');
        end;
        exit;
      end;
    end;
  end;

  readln;
  readln;

end.