Помогите с программой на языке Паскаль , используя подпрограмму "procedure".Пожалуйста,...

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

procedure Kol(p:array of integer; var r:integer);
begin
r:=p.Where(t->t.Between(1,5)).Count
end;

begin
var a:=ArrRandom(10,-5,10); Write('A: '); a.Println;
var b:=ArrRandom(8,-5,10); Write('B: '); b.Println;
var c:=ArrRandom(7,-5,10); Write('C: '); c.Println;
var k,m,n:integer;
Kol(a,k); Kol(b,m); Kol(c,n);
var yp:=k+Abs(m-n);
var y:=2/3+yp;
Writeln('Y = ',yp+' 2/3 = ',y)
end.

Пример
A: 5 6 2 -5 -4 2 -2 -2 9 -3
B: -4 0 -1 9 8 -1 2 4
C: -3 6 2 7 -3 -2 1
Y = 3 2/3 = 3.66666666666667

Помогите с программой ** языке Паскаль , используя подпрограмму "procedure".Пожалуйста,...