为什么我的PASCAL程序没有运行？ 信用卡的程序类型； 变量 AppliName：字符串的数组[1..99]； SSnum：整数的数组[1..99]； GSal：整数的数组[1..99]； TSalD：整数的数组[1..99]； 名称，CC:String； Rep、Exp、GS、NS、Sum、TSD、YS、SSN、i、PofIncome:integer； Y，C_金额：真实 开始 Writeln（‘输入申请信用卡类型的申请人’）； Readln（代表、实验、总体、总体、总体、总体、TSD、SSN、CC、PofIncome）； 而（名为“停止”）做什么 开始 NS:=GS-TSD； 总和：=Exp+Rep； 波芬科姆：=（NS*0.45）； 开始 如果（GS>4000）和（CC=铜牌），则 YS:=GS*12； C_金额：=YS*0.25； i:=i+1； AppliName[i]：=名称； SSNum[i]：=SSN； GSal[i]：=GS； TSalD[i]：=TSD； 结束； 开始 如果（GS>=7500）和（CC=金卡），则 YS:=GS*12； C_金额：=YS*0.3； i:=i+1； AppliName[i]：=名称； SSnum[i]：=SSN； GSal[i]：=GS； TSalD[i]：=TSD； 结束； 开始 如果（GS>=10000）和（CC=白金卡），则 YS:=GS*12； C_金额：=YS*0.4； i:=i+1； AppliName[i]：=名称； SSNum[i]：=SSN； GSal[i]：=GS； TSalD[i]：=TSD； 如果结束 如果结束 如果结束 结束时 结束。

我使用的是免费的IDEPascal，它说我有两个错误。如果有任何错误或您看到任何奇怪的，请通知我。错误显示：致命：语法错误，“；”应为，但“找到标识符Writeln-错误源-Writeln（'输入申请信用卡类型的申请人'）在

YS，C\u Amt:Real

之后有一个

缺失。同样在每个
之后，那么
应该是一个
开始
，如果
和
结束，那么所有
结束，而结尾的
都应该是
结束；
在
YS，C\u Amt:Real
之后有一个
缺失如果
和
结束，则应为
开始
和所有
结束，而
结束时应为
结束；
如果
和

结束时应为所有结束ode>End；

在

YS，C_Amt:Real

之后缺少一个

。同样在每个

之后，

应该是一个

开始

，所有

结束如果
和
结束，而结尾的
都应该是
结束；