pascal
Почему runtime error

const
SIZE = 100000;

var
n, i, j: LongInt;
a: array[1..SIZE, 1..SIZE] of Integer;

begin
Read (n);

for i:= 1 to n do
for j:= 1 to n do;
a[i][j]:= 0;
end.