Определить время через 15 секунд

uses crt;
const Max=5;
var a,b:array[1..Max] of integer;
    c:array[1..2*Max] of integer;
    k,l,m:integer;
 begin
  ClrScr;
  Writeln('Объединение двух упорядоченных массивов...');
  Writeln('Введите элементы первого массива...');
  Write('(',Max,' целых чисел) ->');
   for k:=1 to Max do
    begin
     Read(a[k]);
    end;
  Writeln('Введите элементы второго массива...*');
  Write('(',Max,' целых чисел) ->');
   for l:=1 to Max do
    begin
     Read(b[l]);
    end;
  k:=1;
  l:=1;
  m:=1;
   repeat
    if a[k]<b[l] then
     begin
      c[m]:=a[k];
      m:=m+1;
      k:=k+1;
     end
    else
     if a[k]>b[l] then
      begin
       c[m]:=b[l];
       m:=m+1;
       l:=l+1;
      end
     else
      begin
       c[m]:=a[k];
       c[m+1]:=b[l];
       k:=k+1;
       l:=l+1;
       m:=m+2;
      end;
   until (k>Max) or (l>Max);
  while k<=Max do
   begin
    c[m]:=a[k];
    k:=k+1;
    m:=m+1;
   end;
  while l<=Max do
   begin
    c[m]:=b[l];
    l:=l+1;
    m:=m+1;
   end;
  Writeln('Массив результат...');
   for m:=1 to 2*Max do
    Write(c[m],' ');
  Writeln;
  Writeln('Для завершения нажмите Enter!');
  Readkey;
 end.

с:=11;
m:=59;
s:=49;
 
s:=(s+15) mod 60;
md:=(s+15) div 60;
 
m:=(m+md) mod 60;
cd:=(m+md) mod 60;
 
c:=(c+cd) mod 12;{12 или 24 решать вам смотря какие часы должны быть}
 
writeln('часов ',c,' минут ',m,' секунд ',s);

с:=11;
m:=59;
s:=49;
s:=(s+15) mod 60;
md:=(s+15) div 60;
m:=(m+md) mod 60;
cd:=(m+md) mod 60;
c:=(c+cd) mod 24;
writeln('Время ',c,':',m,':',s);

uses crt;
var c,m,s,md,cd:byte;
begin
clrscr;
write('kol-vo chasov ');
readln(c);
write('kol-vo minut ');
readln(m);
write('kol-vo sicund ');
readln(s);
 
md:=(s+15) div 60;
s:=(s+15) mod 60;
cd:=(m+md) div 60;
m:=(m+md) mod 60;
c:=(c+cd) mod 24;
writeln('Vremyaя ',c,':',m,':',s);
readln;
end.