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