用lazarus做一个判断文件内指定内容并改写后再保存此文件的代码

majesty

求大师帮用lazarus做一个判断文件内指定内容并改写后再保存此文件的代码

读取开始是字母串的行，判断第4个数字是1还是20，如果是1则把这个1改为27，如果第4位是20，再判断第一个字母串是CIRCLE还是CLOSED，如果是CIRCLE则把这第一个字母串改为KPTCIR，如果是CLOSED则把这第一个字母串改为KPTCLS,同时把这个20改为1

读取一行的代码网上都有，判断我想我也能慢慢试验出来，只是读取一行后怎么去判断里面特定的地方是否符合要求就不知道怎么操作了，或者说不知道用什么方法来读一行，是用数组呢还是什么？



文件夹下有很多个文件，这些文件里的内容都有下面的特征，都需要按上面的要求读写后保存，请帮写个fpc代码，谢谢
文件中的部分字符如下

*SSSS-LIBRARY-PCB-DECALS-V9*

LC2-10-23-27     I 0     0     1 0 17 0 2 1 0
TIMESTAMP 2014.12.29.09.22.31
"Geometry.Height" 1062.00mil
CIRCLE 2 5.91 1 -1
-452.76 0   
452.76 0   
OPEN   2 5.91 1 -1
-29.53 0     0   1800 -88.58 -29.53 -29.53 29.53
-88.58 0   
OPEN   2 5.91 1 -1
-118.11 0   
-88.58 0   
OPEN   2 5.91 1 -1
29.53 0     0   1800 -29.53 -29.53 29.53 29.53
-29.53 0   
OPEN   2 5.91 1 -1
88.58 0     0   1800 29.53 -29.53 88.58 29.53
29.53 0   
OPEN   2 5.91 1 -1
88.58 0   
118.11 0   
CIRCLE 2 1 1 -1
-123.03 29.53
-93.5 29.53
CIRCLE 2 1 1 -1
-531.5 0   
-452.76 0   
OPEN   2 5.91 26 -1
29.53 0     0   1800 -29.53 -29.53 29.53 29.53
-29.53 0   
OPEN   2 5.91 26 -1
-29.53 0     0   1800 -88.58 -29.53 -29.53 29.53
-88.58 0   
OPEN   2 5.91 26 -1
88.58 0     0   1800 29.53 -29.53 88.58 29.53
29.53 0   
OPEN   2 5.91 26 -1
88.58 0   
118.11 0   
OPEN   2 5.91 26 -1
-118.11 0   
-88.58 0   
CIRCLE 2 5.91 26 -1
-452.76 0   
452.76 0   
CIRCLE 2 1 26 -1
-123.03 29.53
-93.5 29.53
CIRCLE 2 1 26 -1
-531.5 0   
-452.76 0   
CIRCLE 2 1 20 -1
-452.76 0   
452.76 0   
T-196.85 0     -196.85 0     1
T196.85 0     196.85 0     2
PAD 0 7 P 60   
-2 120 R  
-1 120 R  
-1 110 RT  45   150 20  4
-1 150 RA
0  120 R  
21 125 R  
28 125 R  

*END*