Keeping spaces - aligning data within array

Experts,

I am trying to apply variable spacing between my data within my array field by information lines up on the page. Let me illustrate:

Here is the way the data current displays:

Business & Personal Finances                         A
Career Pract - 1hr          A    A-    A                 A
Language Arts 12           B+     B+      B+              B
Psychology                A-      B+      A
US Government            B      B+      B+

Code attached.

I must keep this string of data together. Spacing between the grades will remain the same. The only problem I am having is the Course name. Course name length is varied so this messes with my line. I thought if I created a number variable and subtracted the length of the string from a constant number I and put this value within the space() function I would have constant spacing the Course name and first Grade. As you can see this is not the case I would like for the output to look like this:

Business & Personal Finances                                               A
Career Pract - 1hr                            A       A-      A                 A
Language Arts 12                            B+     B+      B+                B
Psychology                                      A-      B+      A
US Government                                B       B+      B+

Where the grade values line up even with the varied length Course name. Any help you can provide would be most appreciated. I am kind of in a time cruch here....

Thanks!!!

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

temp := length({DA_SubjectItem.Name});
Round(temp);
SubjectLtrCnt := 35 - temp;
//to populate the array
REDIM PRESERVE ary_CourseArray[k];
 
ary_CourseArray[k] := {DA_SubjectItem.Name} + space(SubjectLtrCnt) + Maximum ({@get_GradeBucket_Q1}, {@grp_Course}) + space(5) + Maximum ({@get_GradeBucket_Q2}, {@grp_Course}) + space(5) +  Maximum ({@get_GradeBucket_S1}, {@grp_Course}) + space(15) + Maximum ({@get_GradeBucket_Q3}, {@grp_Course}) + space(5) + Maximum ({@get_GradeBucket_Q4}, {@grp_Course}) + space(5) + Maximum ({@get_GradeBucket_S2}, {@grp_Course});
   k := k + 1;
 
//to display the array
SHARED STRINGVAR ARRAY ary_CourseArray;
shared numbervar k;
JOIN(ary_CourseArray, CHR(13))