Из 5 чисел найти количество четных и нечетных чисел, и найти соответственно их суммы

uses crt;
 
var a,b,c,d,e,k1,k2,s1,s2:integer;
 
begin
 
writeln('vvedite 1 chislo');
 
readln(a);
 
writeln('vvedite 2 chislo');
 
readln(b);
 
writeln('vvedite 3 chislo');
 
readln(c);
 
writeln('vvedite 4 chislo');
 
readln(d);
 
writeln('vvedite 5 chislo');
 
readln(e);

if Odd(a)  then begin
       Inc (k1);
       s1 := s1 + a
else begin
       Inc (k2);
       s2 := s2 + a;

program mas;
uses crt;
var a: array [1..5] of integer;
    i,sum,sum1,k,k1: integer;
begin
 clrscr;
 for i:=1 to 5 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
 for i:=1 to 5 do
 if a[i] mod 2=0 then
 begin
  sum:=sum+a[i];
  k:=k+1;
 end
 else
 begin
  sum1:=sum1+a[i];
  k1:=k1+1;
 end;
 writeln('количество чётных чисел= ',k,' сумма чётных чисел= ',sum);
 writeln('количество не чётных чисел= ',k1,' сумма не чётных чисел= ',sum1);
 readln;
end.