Performance 以数字和字符串形式读取变量

在选择了给定的选项（1、2或3）后，我试图让

Dep_code

以字符串形式读取。我第一次在我的第一个程序中将它设置为整数（我想），并且能够让它读出以单词形式给出的选项（Accounts

ACC

或其他）。但是，它被意外删除了。我尝试了各种方法，甚至将

Dep_code

设置为字符串，但它不起作用，而且我不断收到各种错误。顺便说一句，我不熟悉编程，所以我知道下面的代码是非常不正确的。。。但我希望你们都能帮忙。谢谢大家!

REPEAT
      writeln ('Please enter the Department Code:- ');
      writeln;
      writeln ('1. Accounts (ACC)');
      writeln ('2. Human Resources (HR)');
      writeln ('3. Operations (OP)');
      writeln;
      readln (Dep_Code);

      IF Dep_Code = 1 THEN
         Dep_Code := ('Accounts (ACC)')

      ELSE IF Dep_Code = 2 THEN
              Dep_Code := ('Human Resources(HR)')

           ELSE IF Dep_Code = 3 THEN
                   Dep_Code := ('Operations (OP)');
UNTIL ((Dep_Code >= 1) AND (Dep_Code <= 3));

重复
writeln（'请输入部门代码：-'）；
书面语；
书面形式（“1.账户（ACC）”；
书面形式（“2.人力资源（HR）”；
书面形式（“3.运营（OP）”；
书面语；
readln（部门代码）；
如果Dep_代码=1，则
部门代码：=（‘账户（ACC）’）
否则，如果Dep_代码=2，则
部门代码：=（‘人力资源部’）
否则，如果Dep_代码=3，则
部门代码：=（‘操作（OP）’）；
直到（（Dep_-Code>=1）和（Dep_-Code这是不可能的。Pascal是一种严格类型化的语言，不能同时是整数和字符串，变量也不能改变类型：

 IF Dep_Code = 1 THEN
     Dep_Code := ('Accounts (ACC)')

但是您根本不需要字符串。请将其保留为整数。如果需要，处理各个部门的函数可以编写或定义此类字符串。菜单的逻辑不需要字符串变量

做一些类似于：

过程手工计数（变量错误：布尔值）；
开始
...
结束；
//跳过其他函数以保持此答案简短。。。
变量
Dep_代码：整数；
AllFine：布尔型；
//跳过其余必要的代码。。。
重复
//跳过了文字以保持此答案简短。。。
Readln（部门代码）；
错误：=假；
案件部门代码
1：手动计数（错误）；
2：HandleHumanResources（错误）；
3：手动操作（错误）；
其他的
错误：=真；
结束；
直到没有错误；

上面，我跳过了一些代码。我想你可以填空。
“顺便说一句，我不熟悉编程”。然后我建议你买一本关于帕斯卡的好教材，在你开始做类似的事情之前，按照上面给出的例子来做。推荐：由马可·坎特？或他类似的关于对象帕斯卡的书。谢谢你，我会去看看的。非常感谢！@LuQinxin:不要只是谢谢我，但是，如果真的有帮助的话。很抱歉。我不知道我是应该打勾的，毕竟你发现了，谢谢。