Дан целочисленный массив из 30 элементов.вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt)

Program i5;
var
  s,d,r,i: integer;
  a:array [1..30] of integer;
begin
  for i:=1 to 30 do
        readln(a[i]);
  s:=0;
  d:=0;
  r:=0;
  for i:=1 to 30 dot
       begin
           if a[i]<0 then
                s:=s+1;
           if a[i]>0 then
                 d:=d+1;
           if a[i]=0 then
                 r:=r+1;
          end;
     writeln(s,'_',d,'_',r);
end.

Var t:text;
a:array[1..30] of integer;
i,m,b,r:integer;
begin
assign(t,'output.txt');
rewrite(t);
for i:=1 to 30 do begin
read(a[i]);
if a[i]>0 then b+=1
else if a[i]<0 then m+=1
else r+=1;
write(t,a[i],' ');
end;
write(m,' ',b,' ',r);
close(t);
end.