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