Решить , используя процедуру, которая отсекает дробную часть числа в паскале, )

Program lolka;
Procedure drobChast(x,y:integer; Var z:integer);
Begin   
         z:=x div y;     
        writeln('ответ = ', z);
End;
Var   x,y,z:integer;
Begin     
        Writeln('Введите число, которое хотите поделить');     
        Readln(x);     
        Writeln('На что поделить?');     
        Readln(y);     
       drobChast(x,y,z);
End.