int n = StrToInt(InputBox("Zadajte pocet ziakov","Cislo","1")),
        c[255];
    String z[255],
           output;
    for (int i = 1; i <= n; i++) {
        z[i] = InputBox("Zadajte meno ziaka","Meno","");
        c[i] = StrToInt(InputBox("Zadajte znamku pre ziaka "+z[i],"Znamka","1"));
    }
    for (int i = 1; i <= n; i++) {
        output += z[i] + " : " + c[i] + "\n";
    }
    ShowMessage(output);