arrays - Turing String/Int (同じ行に配置)

Question

これは私の現在のコードです:

var compMark : array 1 .. 5 of real
var name : array 1 .. 5 of string
var counter : int := -1
for i : 1 .. 5
    counter := counter + 1
    exit when (counter = 5)
    put "What is your name?"
    get name (i)
    if name (i) = "stop" then
        cls
        exit
    end if
    put "What is your mark in Computer Science?"
    get compMark (i)
    if compMark (i) < 0 or compMark (i) > 100 then
        cls
        put "Error"
        return
    end if
    put ""
end for
cls
put "Name \t\t Computer Science mark"
for i : 1 .. upper (name)
    put name (i)
end for
for j : 1 .. upper (compMark)
    put "\t\t", compMark (j)
end for

出力は次のようになります。

---

名前 コンピューター サイエンス マーク

名前

名前

名前

75

35

98

---

出力をどのようにしたいか：

---

名前 コンピューター サイエンス マーク

名前 75

名前 35

名前 98

---

これで私を助ける方法を知っている人はいますか？