Pascal什么情况会输出超限

输入长度，输出一个空心正六边形。
以下是程序，但为什么会输出超限。
var
n,i,s,p:integer;
begin
read(n);
write('*':n);
for i:=1 to n-1 do
write('*');writeln; p:=n-2;
repeat
inc(s);p:=p+2;
write('*':n-s);
write(' ':p);
writeln('*');
until s=n-1;
s:=0;
repeat
inc(s); p:=p-2;
write('*':s+1);
write(' ':p);
writeln('*');
until s=n-2;
write('*':n);
for i:=1 to n-1 do
write('*');
end.

修改成这样就成：
var n,i,s,p:integer;
begin
read(n);
if n<2 then exit;
write('':n-1);
for i:=1 to n do write('*'); writeln;
p:=n-2;
repeat
inc(s); p:=p+2;
writeln('*':n-s,'':p,'*');
until s>=n-1;
s:=0;
repeat
inc(s); p:=p-2;
writeln('*':s+1,'':p,'*');
until s>=n-2;
if n<3 then exit;
write('':n-1);
for i:=1 to n do write('*'); writeln;
end.

期待看到有用的回答！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息