Why wrong anwser on 5 test? Where is the error?

var N,i,k:integer;
    A:array[1..100,1..100]of integer;
begin
     fillchar(a,sizeof(a),0);
     Readln(n);
     for i:=1 to N do
     begin
      for k:=1 to N do
      begin
       read(A[i][k]);
      end;
     end;
k:=1;
    for i:=1 to N*N do
      begin
        if k>100 then k:=1;
         write(k,' ');
inc(k)
      end;
end.

4
12  3  6  10
2   5  9  13
4   22 12 15
7   11 14 163

The answer
12 2 3 4 5 6 7 22 9 10 11 12 13 14 15 163

Edited by author 03.04.2005 03:00