Какое время будут показывать часы через p-час, q-мин, r-сек - Turbo Pascal

program abs;
var m,n,p,q,r,y,z,o,b,k:integer;
begin
  write ('кол-во часов:');
  readln (m);
  write ('кол-во минут:');
  readln (n);
  write ('кол-во секунд:');
  readln (k);
  write ('текущее время:', m:3,n:3,k:3);
  writeln (' прибавляем некоторое время');
  write ('кол-во часов:');
  readln (p);
  write ('кол-во минут:');
  readln (q);
  write ('кол-во секунд:');
  readln (r);
  y:=m*3600+n*60+k;
  z:=p*3600+q*60+r;
  o:=y+z;
  m:= o div 3600;
  if m>=24 then
    m:=m-24;
  n:= (o mod 3600)div 60;
  if n>=60 then
    begin
      b:=n div 60;
      m:=m+b;
      n:=n mod 60;  
    end;
  k:=(o mod 3600)mod 60;
  if k>=60 then 
    begin
      c:=k div 60;
      n:=n+k;
      k:=k mod 60;
    end;
  writeln(m,' часов ',n,' минут ',k,' секунд ');
  readln;
end.