Задача про файл Опции

[RAPON]

Дано целое число K и текстовый файл. Создать файл и записать в него ве слова длины K из исходного файла. Словом считать набор символов, не содержащий пробелов, знаков препинания и ораниченный пробелами, знаками пепинания или началом/концом строки. Если исходный файл не содержит слов длины K, то оставить результирующий файл пустым.
я сделал такую программу..

 
var 
f,t:text;
k,sh,I,sl,chet:integer;
c:char;
d:string[5];
s:string;
begin
assign(f,’c:/b.txt’);
assign(t,’c:/t/.txt’);
rewrite(t);
reset(f);
while not eof do
begin
i:=1;
readln(f,s);
while i<=length(s) do
begin
	if  (s[i]<>’_’) and (s[i]<>’.’) and (s[i]<>’,’) and (s[i]<>’!’) and (s[i]<>’?’) and (s[i]<>’:’) then d:=d+s[i];
while (s[i]<>’_’) and (i<=length(s)) and (s[i]<>’.’) and (s[i]<>’,’) and (s[i]<>’!’) and (s[i]<>’?’) and (s[i]<>’:’) do
	begin
		inc(i);
		d:=d+s[i];
		chet:=chet+1;
	end;
	if chet=5 then writeln(t,d);
d:=’’;
chet:=0;
inc(i);
end;
end;

Вопрос:подскажите пожалуйста,как мне более компактно сделать те два условия, где перечисляются знаки препинания(и то, не для всех знаков препинания, там длины хватает..)