Задан массив из 20 целых чисел.Описать функцию для определения количества ненулевых чисел среди N первых его элементов.В качестве параметров взять A и N.Если ненулевых нет,то результат функции-число 7777777 — Pascal(Паскаль)

program a1;
uses crt;
type
 mas=array [1..20] of integer;
var
 a: mas;
 i,n: integer;
function col(a2:mas;n2:integer):longint;
 var
  c: integer;
 begin
  c:=0;
  for i:=1 to n2 do
   if a2[i]<>0 then inc(c);
  if c=0 then col:=7777777
  else col:=c;
 end;
begin
 clrscr;
 writeln('Vvedite 20 chisel:');
 for i:=1 to 20 do
  read(a[i]);
 write('Vvedite N: ');
 readln(n);
 writeln('Resultat: ',col(a,n));
end.