половину перевел, но затруднения вот тут:
sidtn = (sidtn)%360;
Что значит %?

и я так понял что
stt = sth + "h" +stmo + "m" +sts +"s";<=>stt := sth + 'h' +stmo + 'm' +sts +'s';
Верно?