实验啊,帮帮忙各位.用循环程序编写

const
maxn=200;
var
a,p,m:array[1..maxn]of integer;
i,z,n,k,l:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
k:=0;
l:=0;
z:=0;
for i:=1 to n do begin
if a[i]>0 then begin
inc(k);
p[k]:=a[i];
end;
if a[i]<0 then begin
inc(l);
m[l]:=a[i];
end;
if a[i]=0 then inc(z);
end;
writeln('da yu 0:');
for i:=1 to k do write(p[i],' ');
writeln;
writeln('xiao yu 0:');
for i:=1 to l do write(m[i],' ');
writeln;
writeln('0:',z,' xge');
end.

不断如带】 犹不绝如缕。
【不绝如带】 同“不绝如线”。
【不绝如发】 同“不绝如线”。
【不绝如缕】 见“不绝如线”。
【不绝如线】 亦作“不绝如缕”。①形容局势危急，象差点儿就要断掉的线 一样。②形容子孙衰落或后继者稀少。③形容声音或思绪微弱。
【车马如龙】 谓车马众多，繁华热闹。
【臣门如市】 语出《汉书•郑崇传》。喻车马盈门，谒见奔走者甚多。
【臣心如水】 ①谓为臣者廉洁奉公，心清如水。②用为清静自如之喻。
【称心如意】 完全合乎心意