unit untVariables;

interface

  type
    TCalc = Class(TObject)
      grades, major_grades : array[1..48] of double;
      credits, major_credits : array[1..48] of integer;
      total_points, major_total_points : double;
      total_credits, major_total_credits : integer;
      constructor Create;
  end;

implementation

constructor TCalc.Create;                 // initialize values
var
  i : integer;
begin
      inherited Create;

      for i := 1 to 48 do
      begin
        grades[i]        := 0.0 ;
        major_grades[i]  := 0.0 ;
        credits[i]       := 0   ;
        major_credits[i] := 0   ;
      end; //for

      total_points        := 0.0 ;
      major_total_points  := 0.0 ;
      total_credits       := 0   ;
      major_total_credits := 0   ;

end;      
end.