รบกวนคนที่เป็นภาษา Pascal หรือ C ช่วยเข้ามาทีครับ (การ Coding)

คือตัวอย่างนะครับ เอาเป็นว่าชื่อ Tableตัวอย่าง

No.    X     Y      Z
1       10   5
2       8     4
3       3     1
4       20    5

ตามตัวอย่างข้างบนนะครับใน Table นึงนะครับ

คือผมต้องการเขียนให้โปรแกรม ทำการคำนวนค่า Z ซึ่ง Z = X-Y  และให้ Post ลงในค่า Z ใน Table เลยน่ะครับ
คือตอนนี้ที่ผมเขียน มันคำนวนค่า Z ออกมาซึ่งๆได้เท่ากับ 5 ค่าเดียวเลยครับ ซึ่งจะเป็นตามด้านล่างนี้

No.    X     Y      Z
1       10   5      5
2       8     4      5
3       3     1      5
4       20    5     5


ที่อยากได้คือ
No.    X     Y      Z
1       10   5      5
2       8     4      4
3       3     1      2
4       20    5     15


คำถามผมต้องเขียนโค้ดอย่างไรครับ

อันนี้เป็นโค้ดคร่าวที่ผมเขียนตอนนี้นะครับ
with tabตัวอย่าง do begin
   while not eof Do Begin
    d := IntToSTr(X - it;
       FieldByName('Z').AsString:= d ;
       Post;
   next;
   end;
   
ซึ่งผลที่ออกมาจะเป็นตาม Table ในตัวอย่างที่ 2 ที่ผมโพสต์ไว้ (Z = 5 ค่าเดียว)

อยากถามว่าผมควรเขียนโค้ดอย่างไรให้ได้ผมตาม Table ในตัวอย่างที่ 3 นะครับ
ป.ล. ภาษา Pascal ได้ ยิ่งดีเลยครับ

ขอบคุณมากครับ