Дан целочисленный массив из 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.