Дополните чтобы показывало числа четные нечетные и их сумму

дополните чтобы показывало числа четные нечетные и их сумму
program my;
uses crt;
var
a,b,c,x:integer;
i : integer;
begin
textbackground(white);
window(30,5,78,20);
writeln('Введите 10 чисел');
for i:=1 to 10 do
begin
readln(a);
if a>5 then inc (x,1);
if a<5 then inc (b,1);
if a=5 then inc(c,1);
end;
writeln('> 5 ',x);
writeln('< 5 ',b);
writeln('= 5 ',c);
readln();
end.

  • program my;
    uses crt;
    var
    a,b,c,x:integer;
    i : integer;
    begin
    textbackground(white);
    window(30,5,78,20);
    writeln('Введите 10 чисел');
    for i:=1 to 10 do
    begin
    readln(a);
    if a>5 then inc (x,1);
    if a<5 then inc (b,1);
    if a=5 then inc(c,1);
    if a mod 2 = 0 writeln(a ,'число' - четное);
    if a mod 2 > 0 writeln(a ',число' - нечетно);
    end;
    writeln('> 5 ',x);
    writeln('< 5 ',b);
    writeln('= 5 ',c);
    readln();
    end.