Подсчитать количество элементов массива, больших 3 (ошибка: "Неверное число параметров функции")

const
n=10;
var
  a:array [1..n] of integer;
  i,k:integer;
 
function lol:integer;
var
  i:integer;
begin
  k:=0;
  //for i:=1 to n do
    if a[i]>3 then
      k:=k+1
      else k:=0;
  lol:=k;
end;
 
 begin
   for i:=1 to n do
    begin
       write ('Введите' ,i,'-ый элемент массива: ');
       readln(a[i]);
    end;
  for i:=1 to n do
  lol(a[i], k);  //// <---Здесь ошибка.
  writeln;
  writeln('Количество элементов, больших 3: ',lol);
  readln;
end.

const
n=10;
var
  a:array [1..n] of integer;
  i:integer;
 
function lol:integer;
var
  k,i:integer;
begin
  k:=0;
  for i:=1 to n do
    if a[i]>3 then
      k:=k+1
    else k:=0;
  lol:=k;
end;
 
 begin
   for i:=1 to n do
    begin
       write ('Введите ' ,i,'-ый элемент массива: ');
       readln(a[i]);
    end;
  writeln('Количество элементов, больших 3: ',lol);
  readln;
end.

lol(a[i], k);

type mas=array [1..n] of integer;
procedure lol(a:mas;var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]>3 then k:=k+1
end;
var a:mas;
    i,k:integer;
begin
for i:=1 to n do
 begin
  write ('Введите' ,i,'-ый элемент массива: ');
  readln(a[i]);
end;
lol(a,k);
writeln('Количество элементов, больших 3 = ',k);
readln;
end.

lol(a[i], k);

const
n=10;
type mas=array [1..n] of integer;
function lol(a:mas):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if a[i]>3 then k:=k+1;
lol:=k;
end;
var a:mas;
    i:integer;
begin
for i:=1 to n do
 begin
  write ('Введите' ,i,'-ый элемент массива: ');
  readln(a[i]);
end;
writeln('Количество элементов, больших 3 = ',lol(a));
readln;
end.