С помощью функции подсчитать количество элементов массива больших 3

const
  n=100;
var
  a:array [1..n] of integer;
  i:integer;
 
function count:integer;
var
  c,i:integer;
begin
  c:=0;
  for i:=1 to n do
    if a[i]>3 then
      inc(c);
  count:=c;
end;
 
begin
  for i:=1 to n do
    begin
      a[i]:=random(n)-n div 2;
      write(a[i],' ');
    end;
  writeln;
  writeln('Количество элементов, больших 3: ',count);
  readln;
end.

const n=100;
var
  a:array [1..n] of integer;
  c,i:integer;
begin
  for i:=1 to n do
    begin
      a[i]:=random(n)-n div 2;
      write(a[i],' ');
    end;
  writeln;
  c:=0;
  for i:=1 to n do
    if a[i]>3 then
      inc(c);
  writeln('Количество элементов, больших 3: ',c);
  readln;
end.

const
  n=100;
type
  arr=array [1..n] of integer;
var
  a:arr;
  i:integer;
 
function kak_ugodno(b:arr):integer;
var
  c,i:integer;
begin
  c:=0;
  for i:=1 to n do
    if b[i]>3 then
      inc(c);
  kak_ugodno:=c;
end;
 
begin
  for i:=1 to n do
    begin
      a[i]:=random(n)-n div 2;
      write(a[i],' ');
    end;
  writeln;
  writeln('Количество элементов, больших 3: ',kak_ugodno(a));
  readln;
end.

writeln('Количество элементов, больших 3: ',kak_ugodno(a)); // <--- вот она вызывается

const
  n=100;
type
  arr=array [1..n] of integer;
var
  x:arr;
  i:integer;
  y:integer;
 
function f(b:arr):integer;
var
  c,i:integer;
begin
  c:=0;
  for i:=1 to n do
    if b[i]>3 then
      inc(c);
  f:=c;
end;
 
begin
  for i:=1 to n do
    begin
      x[i]:=random(n)-n div 2;
      write(x[i],' ');
    end;
  writeln;
  y:=f(x); // <---вот это нужно было? :)))))))
  writeln('Количество элементов, больших 3: ',y);
  readln;
end.