Вопрос по выводу function в Free Pascal

Написал программу и похоже неверно прописал ввывод функции, помогите исправить!
ClrScr;
Write('BBEDITE n (>= 20),n = ');
Read(n);
WriteLn('BBEDITE 3HA4EHIE BEKTOPA A:');
for i:=1 to n do
Begin
Write('A[',i,']= ');
ReadLn(A);
end;
ClrScr;
Write('BBEDITE m (>= 20),m = ');
ReadLn(m);
WriteLn('BBEDITE 3HA4EHIE BEKTOPA B:');
for i:=1 to m do
Begin
Write('B[',i,']= ');
ReadLn(B);
end;
ClrScr;
Write('BBEDITE k (>= 20),k = ');
ReadLn(k);
WriteLn('BBEDITE 3HA4EHIE BEKTOPA C:');
for i:=1 to k do
Begin
Write('C[',i,']= ');
ReadLn(C)
end;
ClrScr;
WriteLn;
WriteLn('Laboratorna rabota 6');
WriteLn('studenta grupu KHit 12-1');
WriteLn('Pimenov Alexey');
WriteLn;
for i:=1 to n do
Write(A,' ');
WriteLn;
WriteLn('CPEDHIE 3HA4EHIE nOLOJiTELbHblX ELEMEHTOB C nAPHblMi iHDEKCAMi A ', chet(A,n));
for i:=1 to m do
Write(B,' ');
WriteLn;
WriteLn('CPEDHIE 3HA4EHIE nOLOJiTELbHblX ELEMEHTOB C nAPHblMi iHDEKCAMi B ', chet(B,m));
for i:=1 to k do
Write(C,' ');
WriteLn;

WriteLn('CPEDHIE 3HA4EHIE nOLOJiTELbHblX ELEMEHTOB C nAPHblMi iHDEKCAMi C ', chet(C,k));
END.

Правельный код
Program suma_ne_chetnuh_elementov_vectorov;
Uses CRT;
Type
vect = Array[1..20] of integer;
Var
A,B,C:vect;
n,m,k,i:integer;
FUNCTION chet (D:vect;t:integer):real;
var
j,l,s:integer;
Begin
l:=0;
s:=0;
begin
for j:=1 to t do
if D[j]>0 then
if not Odd(j)then
end;
l:=l+1;
s:=s+D[j];
chet:=s/l;
End;
Begin
ClrScr;
Write('BBEDITE n (>= 20),n = ');
Read(n);
WriteLn('BBEDITE 3HA4EHIE BEKTOPA A:');
for i:=1 to n do
Begin
Write('A[',i,']= ');
ReadLn(A);
end;
ClrScr;
Write('BBEDITE m (>= 20),m = ');
ReadLn(m);
WriteLn('BBEDITE 3HA4EHIE BEKTOPA B:');
for i:=1 to m do
Begin
Write('B[',i,']= ');
ReadLn(B);
end;
ClrScr;
Write('BBEDITE k (>= 20),k = ');
ReadLn(k);
WriteLn('BBEDITE 3HA4EHIE BEKTOPA C:');
for i:=1 to k do
Begin
Write('C[',i,']= ');
ReadLn(C)
end;
ClrScr;
WriteLn;
WriteLn('Laboratorna rabota 6');
WriteLn('studenta grupu KHit 12-1');
WriteLn('Pimenov Alexey');
WriteLn;
for i:=1 to n do
Write(A,' ');
WriteLn;
WriteLn('CPEDHIE 3HA4EHIE nOLOJiTELbHblX ELEMEHTOB C nAPHblMi iHDEKCAMi A ', chet(A,n));
for i:=1 to m do
Write(B,' ');
WriteLn;
WriteLn('CPEDHIE 3HA4EHIE nOLOJiTELbHblX ELEMEHTOB C nAPHblMi iHDEKCAMi B ', chet(B,m));
for i:=1 to k do
Write(C,' ');
WriteLn;

WriteLn('CPEDHIE 3HA4EHIE nOLOJiTELbHblX ELEMEHTOB C nAPHblMi iHDEKCAMi C ', chet(C,k));
END.