С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала последнего часа — Pascal(Паскаль)

program orlov;
uses crt;
var
i,n,m,h,k:integer;
begin
clrscr;
write('Введите количество пройденных секунд: '); read(n);
for i:=1 to n do
if i mod 60=0 then
inc(m);
for i:=1 to m do
if i mod 60=0 then
inc(h);
writeln;
for i:=1 to m do
begin
k:=i mod 60;
end;
write('Прошло  Часов: ',h,' Минут: ',k);
writeln;
write('Минут с последнего часа: ',k);
end.