جستجوي يك كلمه در فايل متني

مي خوام يك كلمه رو توي يك فايل متني جستجو كنم و بعد از بعد اون كلمه تا آخر فايل متني رو پاك كنم.
لطفا قطعه كدي كه اين كار رو انجام ميده بفرماييد.
ممنون.

دوست عزیز.
میتونی با الگوریتم دستی این کارو بکنی.
میتونی هم از تابع Pos استفاده کنی.
کار این تابع اینه که محل اولین کلمه مورد نظرتو توی یک متن بر میگردونه.
بقیشم که به عده خودتون.
از اون حرف به بعد رو باید حذف کنید.

موفق باشی.

جناب مرد مباح از راهنماييتون ممنونم
حالا فرض كنيد يك فايل متني داريم و مي خواهيم كلمه test رو در آن جستجو كنيم.
براي استفاده از تابع pos تصميم گرفتم به اين صورت عمل كنم :

pos('test' , v )

كه در آن v يك متغير حاوي متن كل فايل متني است.
دستور read معمولا طوري استفاده مي شود كه با آن يك كلمه (مثلا از جنس رشته) از فايل خوانده مي شود.
حالا اگر بخواهيم كل فايل متني را يكجا بعد از باز كردن درون يك متغير بريزيم چه پيشنهادي داريد؟
ممنون.

میتونی یک الگوریتم بنویسی و با فرمان Readln همه خط ها رو بخونی و توی یک Memo بریزی.
اینجوری کل متنو داری.