Дано целое число 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;

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

const signs:set of char=['.' , ',' , ':' , и т.д.];

тогда проверка будет выглядеть так:

if not s[i] in signs then ...

Воспользуйся множествами.

var
  Separators: set of char;
...
  Separators:=[' ',',','.']    {добавь, что нужно}
...
  if not (s[i] in Separators) then ...

Хотя, эффективнее будет создать множество, скажем, AlphaNum

AlphaNum:=['A'..'Z']+['a'..'z']+['0'..'9']

- и проверяй не разделители, а слова.