Помогите пожалуйста создать программу на Паскале. Заранее всем благодарен

#include <stdlib.h>
#include <string.h>
#include <stdio.h>

int main() {
    unsigned bh, bm, bs, a[3] = { 0 }, n = 0, oh = 0, om = 0, os = 0, d, h, m, s;
    unsigned long long es;
    char is[80], *p;

    freopen("a. in", "r", stdin); // пробел в "a. in" убрать
    freopen("a.out", "w", stdout);

    scanf("%u:%u:%u\n", &bh, &bm, &bs);

    fgets(is, 80, stdin);
    p = strtok(is, ":");
    while (p) {
        sscanf(p, "%u", &a[n++]);
        p = strtok(NULL, ":");
    }
    if (n == 1) { os = a[0]; }
    if (n == 2) { om = a[0]; os = a[1]; }
    if (n == 3) { oh = a[0]; om = a[1]; os = a[2]; }

    es = bh * 3600LL + bm * 60LL + bs + oh * 3600LL + om * 60LL + os;

    d = es / 86400;
    h = es % 86400 / 3600;
    m = es % 3600 / 60;
    s = es % 60;

    printf("%""02u:%""02u:%""02u", h, m, s);
    if (d) printf("+%u days", d);

    return 0;
}