Дан одномерный массив из n элементов в интервале [0,50] найти количество элементов попадающих в интервал [0,25] и количество элементов попадающих в интервал[40,50] (через процедуру)

var ar:array of integer; i,n:integer; procedure FirstPr(ar:array of integer;n:integer); var i,k:integer; begin; for i:=1 to n do if ar[i]<=25 then inc(k); writeln(k); end; procedure SecPr(ar:array of integer;n:integer); var i,k:integer; begin; for i:=1 to n do if (ar[i]>=40) and (ar[i]<=50) then inc(k); writeln(k); end; begin; randomize; readln(n); setlength(ar,n+1); writeln('Array'); for i:=1 to n do begin; ar[i]:=random(0,50); write(ar[i]:4); end; writeln; FirstPr(ar,n); SecPr(ar,n); end.