я сделал такую программу..
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;
Вопрос:подскажите пожалуйста,как мне более компактно сделать те два условия, где перечисляются знаки препинания(и то, не для всех знаков препинания, там длины хватает..)