Даны два одномерных массива размера n и s/ для первого массива вычислить сумму четных элеменртов, для второго - сумма нечетных элементов - Turbo Pascal - Ответ 4788921

Type mas=array[1..100] of integer;
Var A,B:mas;
    i,n,s:integer;
Function F(A:mas;n,k:integer):integer;
Var i,s:integer;
Begin
    s:=0;
    Case k of 
    1:
      For i:=1 to n do
       if odd(A[i]) then inc(s,A[i]);
    2:
      For i:=1 to n do
       if not odd(A[i]) then inc(s,A[i]);
    End;
    F:=s;
End;
Begin
    write('Введите N: ');readln(n);
    writeln('Первый массив');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    write('Введите S: ');readln(n);
    writeln('Второй массив');
    For i:=1 to n do
    Begin
      B[i]:=random(31)-15;
      write(B[i]:4);
    End;
    writeln;
    writeln('Сумма чётных элементов первого массива = ',F(A,n,2));
    writeln('Сумма нечётных элементов второго массива = ',F(B,s,1));
    readln;
End.