Найти сумму четных чисел первой половины массива

type arr=array[1..100] of integer;
Var A:arr;
    i,n,k,s:integer;
procedure vvod(var n1:integer);
begin
    write('Введите размерность: ');
    readln(n1);
    end;
    procedure find(A1:arr;n1,k:integer;var s1:integer);
    var
    i:integer;
    begin
    s1:=0;
    For i:=1 to n1 do
    begin
      A1[i]:=random(20);
      write(A1[i],' ');
      if A1[i] mod 2 = 0 then
      begin
        s:=s1+A[i];
        inc(k);
      end;
      end;
      end;
    procedure vivod(s1:integer);
    begin
    writeln;
    writeln('Сумма чётных= ',s1);
    end;
    begin
    vvod(n);
    find(A,n,k,s);
    vivod(s);
    end.

type
  arr = array[1..100] of integer;
 
var
  A: arr;
  i, n, k, s: integer;
 
procedure vvod(var n1: integer);
begin
  write('Введите размерность: ');
  readln(n1);
end;
 
procedure find(var A1: arr; n1, k: integer; var sl: integer);
var
  i: integer;
begin
  for i := 1 to n1 do
  begin
    A1[i] := random(20);
    write(A1[i], ' ');
  end;
  writeln;
  sl := 0;
  for i := 1 to n1 div 2 do
  begin
    if A1[i] mod 2 = 0 then
    begin
      sl := sl + A[i];
      inc(k);
    end;
  end;
end;
 
procedure vivod(s1: integer);
begin
  writeln;
  writeln('Сумма чётных= ', s1);
end;
 
begin
  vvod(n);
  find(A, n, k, s);
  vivod(s);
end.