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

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.