Object Pascal - เก็บตก #1

สวัสดีครับ
คิดว่าหลาย ๆ คนอาจจะลองทำโจทย์ดูแล้ว แต่อาจจะไม่ออก
ผมต้องขอโทษจริง ๆ ครับ ลืมบอกคำสั่งที่สำคัญไป

อย่างแรกคือ ความยาวของ String เราจะใช้ ฟังก์ชัน Length หาความยาวเช่น
var S: string = 'Test String';
Write(Length(S));
จะได้ผลออกมาว่า 11

สำหรับการประกาศ String ที่มีการกำหนดขนาด เช่น
var S: string[40];
ค่าอักขระ แต่ละตัวจะเป็น #0 ทั้งหมด
เราสามารถเช็คได้ว่า string มีตัวอักษรทั้งหมดกี่ตัวโดยการตรวจสอบค่า #0 เช่น

ส่วนการบ้านข้อ 20 ขอเปลี่ยนโจทย์หน่อยละกัน ให้ง่ายกว่าเดิม
ขอเปลี่ยนเป็น
20) ให้รับค่าเข้าไป 10 ค่า แล้วหาค่าที่ซ้ำกันอย่างน้อยครึ่งหนึ่ง เช่น
1 2 3 4 4 4 4 5 6 4 คำตอบคือ 4
1 5 6 6 6 8 7 4 2 3 คำตอบคือ none เพราะไม่มีค่าที่ซ้ำกันเกินครึ่ง