Функция: найти количество и сумму тех членов данной последовательности, которые удовлетворяют условию

uses
  crt;
 
var
  a: array [1..50] of integer;
  sum, l, kol, k, n, i: integer;
 
begin
  clrscr;
  l := 0;
  sum := 0;
  writeln('vvedite N');
  readln(n);
  writeln('vvedite K');
  readln(k);
  for i := 1 to N do 
  begin
    writeln('vvedite a[i]');
    readln(a[i]);
  end;
  for i := 1 to n do 
  begin
    if abs(a[i]) < sqr(k) then begin
      l := l + 1;
      sum := sum + a[i];
    end;
  end;
  writeln('Сумма : ', sum);
  writeln('Koli4estvo : ', l);
end.

uses
  crt;
 
type
  mas = array[1..200] of integer;
 
var
  a: mas;
  sum, l, k, n, i: byte;
 
 
function kol_el(A: mas; n: byte): byte;
var
  i: integer;
begin
  
  l := 0;
  sum := 0;
  for i := 1 to N do     
    
    if abs(a[i]) < sqr(k) then 
      l := l + 1;
  
  kol_el := l;
  
end;
 
function summ(A: mas; n: byte): byte;
var
  i: integer;
begin
  
  
  sum := 0;
  for i := 1 to N do     
    
    if abs(a[i]) < sqr(k) then 
    begin
      sum := sum + a[i];
      summ := sum;
    end;
end;
 
 
begin
  writeln('Введите количество элементов массива ');
  readln(n);
  writeln('Введите  K, для проверки условия');
  readln(k);
  
  writeln('Введите массив');
  for i := 1 to n do 
    Readln(a[i]);
  writeln('Количество элементов меньше K*K- ', kol_el(a, n));
  writeln('Сумма этих элементов-  ', summ(a, n));
end.