transpose csv file

trans.awk

#!/usr/bin/awk -f
BEGIN{FS=";"}
{a[i++] = $0; max = max > NF ? max : NF}
END{
    for (i = 1; i <= max; i++) {
        for (j in a) {
            $0 = a[j]
            printf "%s%s", $i, FS
        }
        print ""
    }
}