Hallo,
ich denke es liegt am folgenden:
was passiert wenn beispielsweise s1=49 sekunden und warte=12
ist? Dann wäre s1+warte > 60s und somit eine Endlosschleife!
Da s2 nie > 60 sein kann!
Das müsste klappen:
Code:
s3:=s1+warte;
if s3>59 then
dec(s3,60);
repeat
gettime(h,m,s2,hun2);
until s3=s2;