Программа на Delphi, выдает неверный ответ

[lenar]

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;
var x, y, z, kol, sum:integer;
begin
y:= 0;
z:= 999999999;
kol:=0;
sum:=0;
Writeln ('vedite chisla');
Writeln ('dlya okonchaniya vvoda nabrat 999999');
Readln (x);                                             ;
While x<> 999999 do
begin
if x > y then y:= x;
if x < z then z:= x;
sum:=sum+x;
Readln (x);
kol:=kol+1;
end;
if x= 999999 then
Writeln('max  ',y);
Writeln('min  ',z);
Writeln('kol  ',kol);
Writeln('sum  ',sum);
Writeln('sred  ',sum/kol);
readln;
end.

у меня все переменные через integer но почему то в результате выдает НЕ целое число

[Hellko]

неявное преобразование типа: sum/kol
чтобы результат был целый sum div kol

[wital1984]

согласен с предыдущим мнением.
но если уж строго смотреть, то:
1) не совсем правильные начальные значения z. Лучше выбрать верхнюю границу типа integer, а проще z:=999999 (x, который нужно набрать для окончания ввода)
2) а зачем эта строка

Код: [Выделить]

if x= 999999 then ?