(Pascal) Нужно составить программу подсчета количества часов, минут и секунд в

(Pascal) Необходимо составить программку подсчета количества часов, минут и секунд в данном числе суток. Число суток ввести с клавиатуры.

Ошибочно считает секунды, в чём ошибка?

var
s,m,h,days: integer;
begin

writeln('Введите кол-во дней');
read(days);
s:=86400;
m:=s div 60;
h:=m div 60;

for var i:=1 to days do
s:=s*days;
m:=m*days;
h:=h*days;

writeln(s,' секунд в ',days,' деньках');
writeln(m,' минут в ',days,' деньках');
writeln(h,' часов в ',days,' деньках');
end.