ถาม admin เรื่อง วิธีการเขียนโปรแกรม

พี่ครับ

ตอนนี้ผมเรียนเขียนโปรแกรมอยู่ อยากจะให้พี่ เขียนโปรแกรมในลักษณะ

การรับ เลข ID 13 หลัก ให้มันตรวจสอบอ่ะครับว่า เวลารับค่ามา ค่าของมันเกิน หรือ ขาด 13 หลัก

ถ้าขาดหรือเกินให้มัน Error แล้วกลับไปรับค่าใหม่ อีกรอบ จนกว่า จะได้ ค่า 13 หลัก พอดีอ่ะครับ

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

อ้างอิงข้อมูลนะครับ

http://math.uww.edu/~harrisb/courses/cs171/strings.html

ใช้ ประมาณนี้ครับ

 Var
            St: String[20];  Len: Integer;

            St := 'a';              { ตัวแปรถ้ารับค่าก็ readln มาเอาเลยครับ }
            Len := Length(St);     { นับตัวอักษรได้  1 }

จากนั้นก็เข้าเงื่อนไขประมาณนี้ครับ

if Len<13 then
    คำสั่ง

ขอบคุณครับ พี่ Admin ^^