PASCAL with problem

Program TypeofCreditCard;
Var
   AppliName: array[1..99] of String;
   SSnum: array[1..99] of Integer;
    GSal: array[1..99] of Integer;
   TSalD: array[1..99] of Integer;

  Name, CC : String;
  Rep,Exp, GS,NS,Sum,TSD,SSN,i,PofIncome : integer ;
  YS, C_Amt: Real ;


   Writeln ( 'Enter applicants who applied for a type of credit card');
   Readln (Rep,Exp,GS,YS,NS,Sum,TSD,SSN,CC,PofIncome) ;

While ( Name <> ' Stop ' ) do
   Begin
   NS:= GS-TSD ;
   Sum:= Exp + Rep ;
   PofIncome:=(NS * 0.45);
If ( GS >4000) AND ( CC = 'Bronze Card' ) then
 Begin
   YS:= GS * 12 ;
   C_Amt := YS * 0.25;
   i:= i + 1;
   AppliName [i]:= Name;
   SSNum [i]:= SSN ;
   GSal  [i]:= GS ;
   TSalD [i]:= TSD ;
End ;

If (GS >= 7500) AND  (CC= 'Gold Card') then
   Begin
   YS:= GS * 12 ;
   C_Amt:= YS * 0.3;
   i:= i + 1 ;
   AppliName [i]:= Name;
   SSnum [i]:=SSN;
   GSal [i]:=GS;
   TSalD [i]:=TSD;
End;

If (GS>=10,000) AND ( CC = ' Platinum Card') then
   Begin
   YS := GS * 12;
   C_Amt: = YS * 0.4;
   i:= i + 1;
   AppliName [i]:= Name;
   SSNum [i]:= SSN;
   GSal [i]:=GS;
   TSalD [i]:= TSD;

End;
End;
End;
End;
End.