Срочно, 25 баллов даю

Var a: array [1..7] of integer; sum, rp, rnp, n, i: integer; mid: real;
begin
sum:=0;
rp:=0;
rnp:=0;
writeln(Введите количество чисел.);
readln(n);
for i:=1 to n do begin
readln(a[i])
end;

for i:=1 to n do sum:=sum+a[i];
mid:=sum/n;

for i:=1 to n do begin
if a[i] mod 2=0 then rp:=rp+a[i]
end;

for i:=1 to n do begin
if a[i] mod 2lt;gt;0 then rnp:=rnp+a[i]
end;

writeln(Сумма: ,sum);
writeln(Ср. арифметическое: ,mid);
writeln(Разность четных: ,rp);
writeln(Разность нечетных: ,rnp);

end.