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