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

const
  k=10;
var
  n,s:array [1..k] of integer;
  i,s1,s2:integer;
begin
  randomize;
  s1:=0;
  writeln ('Massiv N: ');
  for i:=1 to k do
   begin
    n[i]:=random(9)+1;
    write (n[i]:3);
    if n[i] mod 2 = 0 then s1:=s1+n[i];
   end;
  writeln;
  writeln ('Summa: ',s1);
  s2:=0;
  writeln ('Massiv S: ');
  for i:=1 to k do
   begin
    s[i]:=random(9);
    write (s[i]:3);
    if s[i] mod 2 <> 0 then s2:=s2+s[i];
   end;
  writeln;
  writeln ('Summa: ',s2);
  readln;
end.

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.