Дана последовательность n целых чисел (n задается с клавиатуры) посчитать в ней среднее арифметическое квадратов четных чисел(pascal)

Var
  i,n,m:integer;
  k,s:longint;
begin
  Write('Задайте количество чисел: '); Read(n);
  s:=0; m:=0;
  Writeln('Вводите числа...');
  for i:=1 to n do
  begin
    Read(k);
    if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end
  end;
  Writeln('Среднее квадратов четных чисел: ',s/m:0:4)
end.

Тестовое решение:
Задайте количество чисел: 7
Вводите числа...
36
-18
15
8
14
6
9
Среднее квадратов четных чисел: 383.2000