Найти средне арифметическое чисел кратных 5 на промежутке от 50 до 100 и вывести их на экран по убыванию ( паскаль)

Var
i,k,d:Integer;
Begin
 for i:=100 downto 50 do
  if (i mod 5=0) then
   begin
    Writeln(i);
    Inc(k);
    d:=d+i;
   end;
  Writeln('Среднее арифметическое : ',d div k);
end.