Вопрос по информатике:

Ошибка времени выполнения: Индекс находился вне границ массива...чтто не так?
const n=30;
var i,j,p,q:integer;
c:array[1..n,1..n+1] of integer;
a:array[1..n+1] of integer;
b:array[1..n+1] of integer;

begin
readln(q,p);


For i:=1 to n do
For j:=1 to n+1 do
c[i,j]:=random(28)+1;


begin
for i:=1 to n+1 do
p:=random(28)+1;
end;

for j:=1 to n+1 do
begin
q:=random(28)+1;
end;

for i:=n downto p do// вставка p
for j:=1 to n+1 do//
c[i+1,j]:=c[i,j];//

for j:=1 to n+1 do c[p,j]:=a[i];
for j:=n+1 downto q do
for i:=1 to N+1 do
c[i,j+1]:=c[i,j];
for i:=1 to n+1 do c[i,q]:=b[i];

for i:=1 to n+1 do begin
for j:=1 to n+1 do
write(c[i,j]:2);
writeln;//
end;
end.